Größe nicht verändern lassen

[blauweiss]

Hi Larsi,

hiermit geht es, wenn du die WM_SIZING Message abfängst:

Delphi-Quellcode:

    procedure MyFormSizing(var Msg: TMessage); message WM_SIZING;

...

procedure TForm1.MyFormSizing(var Msg: TMessage);

var
  aRect: ^TRect;
begin
  Msg.Result := 1;
  aRect := pointer(Msg.LParam);
  aRect^ := BoundsRect;
end; // MyFormSizing

Grüße,
blauweiss