|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Objekte verschieben
31. Okt 2007, 17:38
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X {1},
Y {2}: Integer);
begin
if Dragaktiv then // besser als "Dragaktive = true"
begin
Centercheck.Left:= X {1};
Centercheck.Top := Y {2};
end
end;
Gruß
Neutral General
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|