Жили були дід та баба. Каже старий бабі:
- Стара, давай колобка склеим і нехай він змайструє перший в лісі комп'ютер.
Бабка погодилася, зліпила колобка, доручила йому зібрати комп'ютер.
Котиться Колобок лісом, бачить - вовк йде. Колобок у нього і питає:
- Вовк, а Вовк, а хочеш системним блоком стати?
- А що це таке?
- Це означає, що ти будеш сидіти і тебе люди годувати самі будуть: Дискетка, дисками ...
- Хочу! - сказав Вовк і став системним блоком. Йде колобок далі. Раптом бачить - лисиця, він їй і каже:
- Лисиця, а Лиса, а хочеш бути монітором?
- А що це таке?
- Ну, це коли ти будеш дивитися на людей, підглядати, а вони нічого і не запідозрять.
- Хочу! - сказала Лисиця і стала монітором.
Покотився Колобок далі. Тут їжачок дорогу перебігає. Він його зупинив і питає:
- Їжачок, а Їжачок, а хочеш бути клавіатурою?
- А що це таке?
- Це коли люди тобі будуть спинку чухати, так погладжувати щодня, а ти лежати будеш.
- Хочу! - сказав Їжачок і став клавіатурою.
Пішов Колобок далі. Бачить - миша біжить. Він її спіймав і питає:
- Миша, а Миша, а хочеш бути комп'ютерною мишкою?
- А це що таке, і як?
- Це коли люди тебе кожен день за шкірку будуть брати і тягати по килимку туди - сюди, туди - сюди.
- Та пішов ти в ж # пу, Колобок.
З тих пір у мишки в ж # пе колобок ...
procedure TForm1.Button6Click (Sender: TObject);
if GetCursorPos (p) = true then
SetCursorPos (p.X 5, p.Y);
У цьому прикладі так само використовується функція SetCursorPos, яка задає положення курсору миші. Їй в дужках потрібно вказати два числових значення X і Y, які визначають координати нового положення курсора.
Для цього потрібно зробити наступне:
Помістіть на форму компонент типу TLabel
Винесіть компонент TTimer
Оголосіть дві глобальні змінні:
x_need, y_need: integer;
саме в них ми будемо відстежувати координати потрібної позиції для покажчика миші
За подією форми OnActivate () активізуйте змінні:
x_need: = Label1.Left Form1.Left 20;
y_need: = Label1.Top Form1.Top 30;
За подією OnTimer для компонента Timer напишіть:
procedure TForm1.Timer1Timer (Sender: TObject);
changex, changey: integer;