So wäre es ein 2-Zeiler.
Delphi-Quellcode:
Procedure TFormIrgendWas.WMGetMinMaxInfo(Var Msg: TWMGetMinMaxInfo);
Begin
With Monitor.WorkareaRect Do
Begin
msg.MinMaxInfo.ptMaxPosition := TopLeft;
msg.MinMaxInfo.ptMaxSize := Point((Right - Left), (Bottom - Top));
End;
End;
Edit: Ich habe gerade einen Tippfehler gefunden.
Ich hatte 2-mal ptMaxSize geschrieben