A trăit un bunic și o femeie. Bătrânul ia spus bătrânei:
"Bătrân, să lipim kolobok-ul și să-l lăsăm să facă primul computer din pădure."
Bunica a fost de acord, a orbit colibok-ul, la instruit să asambleze calculatorul.
Trecând de-a lungul pădurii, vede - lupul vine. Kolobok la întrebat:
- Wolf și Wolf, dar vrei să devii bloc de sistem?
- Și ce este?
- Aceasta înseamnă că veți sta și voi veți fi hrăniți: dischete, discuri ...
- Vreau să! - a spus Wolf și a devenit o unitate de sistem. Ieși bunny. Dintr-o dată vede o vulpe, îi spune:
- Fox și Fox, vrei să fii monitor?
- Și ce este?
"Ei bine, atunci vă veți uita la oameni, spionați și nu vor bănui ceva".
- Vreau să! Said Fox și a devenit monitor.
Kolobok se rostogoli. Apoi, ariciul traversează drumul. El la oprit și a întrebat:
- Arici, Arici, și vrei să fii o tastatură?
- Și ce este?
- Acesta este momentul în care oamenii vă vor zgâria spatele, da în fiecare zi și veți minți.
- Vreau să! A spus Ariciul și a devenit o tastatură.
Kolobok a continuat. Vede că mouse-ul rulează. El a prins-o și a întrebat:
- Mouse și mouse, dar vrei să fii mouse de calculator?
- Și asta este și cum?
- Atunci oamenii te vor lua în fiecare zi pentru a se scutura și-i trageți pe covor acolo - aici, acolo - aici.
- Da, te-ai dus la # poo, Kolobok.
De atunci, mouse-ul are un bob bob ...
procedura TForm1.Button6Click (expeditor: TObject);
dacă GetCursorPos (p) = adevărat atunci
SetCursorPos (p.X 5, p.Y);
În acest exemplu, se utilizează de asemenea funcția SetCursorPos, care stabilește poziția cursorului mouse-ului. Este necesar să specificați două valori numerice X și Y în paranteze care determină coordonatele noii poziții a cursorului.
Pentru a face acest lucru, trebuie să faceți următoarele:
Plasați componenta TLabel pe formular
Scoateți componenta TTimer
Declarați două variabile globale:
x_need, y_need: integer;
în ele vom urmări coordonatele poziției dorite pentru indicatorul mouse-ului
În formularul OnActivate (), activați variabilele:
x_need: = Label1.Left Form1.Left 20;
y_need: = Label1.Top Form1.Top 30;
La evenimentul OnTimer pentru componenta Timer, scrieți:
procedura TForm1.Timer1Timer (expeditor: TObject);
changex, changey: integer;