Hi,
Zitat:
Is ganz einfach, du könntest zum Beispiel nen Timer, Intervall auf 10 und dann hau das rein:
Man muss nicht für alles einen Timer nehmen....
Dafür gibt es Messages hier : WM_MOVE.
Delphi-Quellcode:
type
TForm1 = class(TForm)
private
procedure WMMove(var Message: TWMMove); Message WM_MOVE;
{ Private declarations }
public
{ Public declarations }
end;
.
.
.
.
procedure TForm1.WMMove(var Message: TWMMove);
begin
inherited;
if form1.Left > 200 then form1.left := 200;
end;
Win32.API