Witam,
Potrzebuje od dobrych ludzi podpowiedzi
Posiadam Timage oraz procedurę do niego MouseMove dzięki której mogę moje zdjęcie przesuwać za pomocą myszki.
Stworzyłem sobie w sposób dynamiczny kilka buttonów:
for i:=1 to n do
with TButton.Create(self) do begin
Width:=30;
Height:=20;
Left:=Image1.Left+ADOTable1.FieldValues['pozycja_x'];
Top:=Image1.Top+ADOTable1.FieldValues['pozycja_y'];
Caption:=ADOTable1.FieldValues['ID'];
Parent:=self;
Visible:=True;
Name:='przycisk'+IntToStr(n);
n:=n+1;
ADOTable1.Next;
end;
Chciałbym aby podczas procedury MouseMove wszystkie stworzone buttony zmieniały swoje Left i Top zgodnie z ruchem myszki. Czy jest w stanie ktoś mnie nakierować na dobrą drogę?
Pozdrawiam