Lehetséges rajz csatolása a kurzorhoz
Annyit kell tennem, hogy a kép helyzete egyenlő legyen a kurzor pozíciójával az űrlapon
mit jelent a kép?
tudsz.
Felismeri a kurzor koordinátáit és adja ki a képet. Az űrlapon kiderül, de ha a képernyőn van, akkor más eszközökkel.
Mondja meg, hogyan kell plz példát mutatni, ezt meg kell tennem Foma-nál.
És általában, hogyan találja meg a kurzor koordinátáit, majd állítsa be a kép helyét ezen koordináták alatt?
> Lavo4nik (22.03.03 11:44)
> Kérje a plz-t egy példánál.
> És általában hogyan találjuk meg a kurzor koordinátáit, majd ezeket a koordinátákat
> állítsa be a kép helyét?
Az űrlap rendelkezik az Form1.OnMouseMove eseménykel
Ezután írja be az eljárást: image1.left: = x; image1.top: = y;
Elemi, kedves Watson!
> Mihey-nek
És mit jelent a képernyőn?
Nos, segíts nekem! A DAEMA123 egy módot javasolt, de félreértettem valamit, vagy valami nincs rendben. Segítség kérjük! Kívánatos például, és végül nem tud felzárkózni :)
Ahogy Repnitsky azt mondja: "Ez ugyanaz az iskolás"
Röviden:
Az Űrlapot1 választja.
Menj az Események (a bal oldali menüben)
Pushja be az OnMouseMove jobb oldalán lévő mezőt 2 alkalommal.
A program létrehoz egy eljárást.
Az X és az Y formális paraméterei - ez az, amire szükséged van.
Ha a kép alatt megérted a képet, akkor tedd azt, amit a deema123 mond:
image1.left: = x; image1.top: = y;
Ez minden. Talán még mindig kikapcsolhatja a normál kurzort stb., De mindez értelmetlen.
Haver, ne töröld meg, nagyon egyszerű! Először tegyük fel a képet (Image1) és az időzítőt (Timer1) az űrlapon.
// Az időzítő OnTimer eseményének a következőnek kell lennie:
eljárás TForm1.Timer1Timer (Sender: TObject);
var
// Van változó formátum p0.x és p0.y
p0: TPoint;
kezdődik
// A kurzor koordinátáit a képernyő teljes felbontásán veszi
GetCursorPos (p0);
// Lepim to Image1 mínusz az űrlap pozíciójának korrekciója a képernyőn
Image1.Left: = p0.x-Form1.Left;
Image1.Top:=p0.y-Form1.Top;
végén;
// És az OnShow Esemény formája így:
eljárás TForm1.FormShow (Sender: TObject);
kezdődik
Minimális időtartam
Timer1.Interval: = 1;
// Hogy a nagy TImage ne villogjon a redrawing közben
Form1.DoubleBuffered: = Igaz;
végén;
Amennyire emlékszem, egy ciklus nélküli játék golyó nélküli tag.
Az emberek egyértelműen megmagyarázhatják a Lavo4nik-ot. És ne pörgesse az agyát mindenféle lendületességgel! Lavo4nik olvassa el a HELP-eket, a FaQ-t, és öregedéssé válik.
Memória: 0,73 MB
Hossza: 0,043 másodperc