Trebuie să fac ca locația imaginii să fie egală cu poziția cursorului pe formular
ce se înțelege prin imagine?
poți.
Recunoașteți coordonatele cursorului și extrageți imaginea de acolo. Pe formular se va întoarce, dar dacă este pe ecran, atunci alte mijloace.
Spune-mi cum să fac un exemplu. Trebuie să fac asta pe Foma.
Și, în general, cum să găsiți coordonatele cursorului și apoi să ajustați locația imaginii sub aceste coordonate?
> Lavo4nik (22.03.03 11:44)
> Prompt ca plz pe un exemplu. Trebuie să o fac.
> Și, în general, cum să găsiți coordonatele cursorului și apoi sub aceste coordonate
> ajustați locația imaginii?
Formularul are evenimentul Form1.OnMouseMove
Apoi scrieți procedura: image1.left: = x; image1.top: = y;
Elementar, draga mea Watson!
> lui Mihey
Și ce înseamnă pe ecran?
Ei bine, ajută-mă! DAEMA123 a sugerat o cale dar am înțeles ceva greșit sau ceva nu este corect. Ajută-te, vă rog! Este de dorit, de exemplu, și în cele din urmă nu se poate prinde :)
După cum a spus Repnitsky: "Aceștia sunt aceiași"
Pe scurt:
Alegeți Form1.
Te duci în Evenimente (în meniul din stânga)
Trageți de 2 ori în câmpul din dreapta lui OnMouseMove.
În program este creată o procedură.
Parametrii formali ai lui X și Y - de asta aveți nevoie.
Dacă sub imaginea pe care o înțelegeți Imagine, atunci faceți cum deema123 spune:
image1.left: = x; image1.top: = y;
Asta e tot. Poate că puteți opri în continuare cursorul standard etc., dar toate acestea sunt nonsens.
Omule, nu te tai, e foarte simplu! Mai întâi, plasați imaginea (Image1) și timerul (Timer1) pe formular.
// Evenimentul OnTimer al temporizatorului ar trebui să fie după cum urmează:
procedura TForm1.Timer1Timer (expeditor: TObject);
var
// Există un format variabil p0.x și p0.y
p0: TPoint;
începe
// Luăm coordonatele cursorului pe rezoluția întregului ecran
GetCursorPos (p0);
// Lepim la Image1 minus corectarea poziției formularului pe ecran
Image1.Left: = p0.x-Form1.Left;
Image1.Top:=p0.y-Form1.Top;
se încheie;
// Și Evenimentul OnShow al formularului este:
procedura TForm1.FormShow (expeditor: TObject);
începe
// Interval minim
Timer1.Interval: = 1;
// Așa că TImage mare nu clipeste în timp ce redraw
Form1.DoubleBuffered: = Adevărat;
se încheie;
Din câte îmi amintesc, un joc fără ciclu este un membru fără bile.
Oamenii ar putea explica în mod clar Lavo4nik. Și nu-i pudră creierul cu tot felul de debilități! Lavo4nik a citit HELPs, FaQ și a devenit înțelept până la bătrânețe.
Memorie: 0,73 MB
Durată: 0,043 secunde