Danke. Ich habe jetzt folgendes in der Statusbar versucht:
Delphi-Quellcode:
procedure TForm15.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
qw := x;
qa := y;
end;
Delphi-Quellcode:
procedure TForm15.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssleft in shift then begin
Form15.Width := Form15.width + x - qw;
Form15.height := Form15.height + y - qa;
qw := x;
qa := y;
end;
end;
Es funktioniert eigentlich auch jedoch wackelt das Formular ganz schnell sobald ich die Maus weiter von weg von der Statusbar bewege. Was mache ich falsch?