Form-Position einschränken/beschränken

[Hawkeye219]

Hallo Christian,

du kannst die Nachricht WM_WindowPosChanging abfangen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
    [...]
  private
    procedure WMWindowPosChanging (var aMessage: TWMWindowPosChanging);
      message WM_WINDOWPOSCHANGING;
  end;

procedure TForm1.WMWindowPosChanging (var aMessage: TWMWindowPosChanging);
begin
  inherited;
  with aMessage.WindowPos^ do
    if (y < 75) then
      y := 75;
end;

Gruß Hawkeye