Жили були дід та баба. Каже старий бабі:
- Стара, давай колобка склеим і нехай він змайструє перший в лісі комп'ютер.
Бабка погодилася, зліпила колобка, доручила йому зібрати комп'ютер.
Котиться Колобок лісом, бачить - вовк йде. Колобок у нього і питає:
- Вовк, а вовк, а хочеш системним блоком стати?
- А що це таке?
- Це означає, що ти будеш сидіти і тебе люди годувати самі будуть: Дискетка, дисками.
- Хочу! - сказав Вовк і став системним блоком. Йде колобок далі. Раптом бачить - лисиця, він їй і каже:
- Лиса, а лисиця, а хочеш бути монітором?
- А що це таке?
- Ну, це коли ти будеш дивитися на людей, підглядати, а вони нічого і не запідозрять.
- Хочу! - сказала Лисиця і стала монітором.
Покотився Колобок далі. Тут їжачок дорогу перебігає. Він його зупинив і питає:
- Їжачок, а Їжачок, а хочеш бути клавіатурою?
- А що це таке?
- Це коли люди тобі будуть спинку чухати, так погладжувати щодня, а ти лежати будеш.
- Хочу! - сказав Їжачок і став клавіатурою.
Пішов Колобок далі. Бачить - миша біжить. Він її спіймав і питає:
- Миша, а Миша, а хочеш бути комп'ютерною мишкою?
- А це що таке, і як?
- Це коли люди тебе кожен день за шкірку будуть брати і тягати по килимку туди - сюди, туди - сюди.
- Та пішов ти в ж # пу, Колобок.
З тих пір у мишки в ж # пе колобок.
У цьому прикладі так само використовується функція SetCursorPos, яка задає положення курсору миші. Їй в дужках потрібно вказати два числових значення X і Y, які визначають координати нового положення курсора.
Для цього потрібно зробити наступне:
- Помістіть на форму компонент типу TLabel
- Винесіть компонент TTimer
- Оголосіть дві глобальні змінні:
саме в них ми будемо відстежувати координати потрібної позиції для покажчика миші
За подією форми OnActivate () активізуйте змінні: