Problem beim Verkleinern der Form

[Mazel]

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

[himitsu]

Nagut, dann mut du halt die Bits rausehmen, welche die Form so verändern würdem, so daß es kleiner ist, als gewollt.

[Mazel]

Ja, aber wie kann ich das am besten anstellen? Es muss doch eine schöne Lösung dafür geben, aber ich weis eben nciht wie?

Mazel