Kvrsoft - hogyan lehet az egér segítségével mozgatni a kívánt helyre
Nagyapa élt valóban egy nő. Mondja az öreg öregasszony:
- Régi, hadd Bun ragasztó és hagyjuk, hogy megtegye az első számítógép az erdőben.
Nagymama beleegyezett vak Bun, utasította, hogy építsenek egy számítógép.
Mézeskalács gurul az erdőben és látja - a farkas jön. Mézeskalács ember és azt kérdezi:
- Wolf, a farkas, és azt szeretné, hogy a rendszer egység?
- Mi ez?
- Ez azt jelenti, hogy akkor üljön, és akkor az emberek, hogy táplálékhoz lesz: egy floppy, lemez ...
- Azt akarom, hogy! - mondta a farkas, és lett a központi egységet. Ez túlmutat a zsemle. Hirtelen látja - a róka, azt mondta neki, és azt mondta:
- Fox és a Fox, és azt szeretné, hogy a monitor?
- Mi ez?
- Nos, ez az, amikor nézi az embereket, kém, és nem is gyanús.
- Azt akarom, hogy! - mondta Fox lett a monitor.
Mézeskalács hengerelt. Itt sündisznó fut át az úton. Megállt, és megkérdeztem:
- Hedgehog és Hedgehog, és azt szeretnék, hogy a billentyűzet?
- Mi ez?
- Ez az, amikor az emberek akkor vissza a semmiből, így simogatta minden nap, és akkor feküdjön le.
- Azt akarom, hogy! - mondta a sün és lett a billentyűzetet.
Mézeskalács ember ment. Látja - az egér fut. A férfi elkapta, és megkérdezte:
- Egér, egér, és azt szeretné, hogy egy számítógépes egér?
- És mi ez, és hogyan?
- Ez az, amikor az ember minden nap a gallér felveszi, és folytatni a szőnyeg ott - itt is, ott - itt.
- Baszd meg az f # pu Gingerbread.
Azóta az egeret a f # ne bun ...
eljárás TForm1.Button6Click (Sender: TObject);
ha GetCursorPos (p) = igaz, akkor
SetCursorPos (p.X 5, p.Y);
Ebben a példában használt SetCursorPos funkció, amely meghatározza a helyzetét a kurzor. Ő kell határozni, hogy a zárójelben két számértékek az X és Y, ami meghatározza a koordinátáit az új helyzetben a kurzort.
Ehhez az alábbiakat kell tennie:
Helyezzük az alkatrész alakját típusú TLabel
Vegye ki TTimer alkatrész
Állapítsa két globális változót:
x_need, y_need: integer;
bennük fogjuk követni a koordinátákat a kívánt helyre az egérmutató
Esemény forma OnActivate () aktiválja a változókat:
x_need: = Label1.Left Form1.Left 20;
y_need: = Label1.Top Form1.Top 30;
OnTimer Event Timer komponens írni:
eljárás TForm1.Timer1Timer (Sender: TObject);
changex, Changey: integer;