Sorry, Param ist hier ein Integer Wert wie $F004 oder $F012.
Delphi-Quellcode:
procedure TForm1.SetReSize(Param: Integer);
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, Param, 0);
end;
Wenn ich auf das Image links oben klicke (OnMouseDown) und dann die Mause bewege rüfe ich mit SetReSize($F004); die Prozedur auf, die dann meine Formgröße verändern soll.
Gruß
Mazel