Würde nicht auch ein einfaches...
Delphi-Quellcode:
Procedure TFormIrgendWas.WMGetMinMaxInfo(Var Msg: TWMGetMinMaxInfo);
Var
MoniRect: TRect;
Begin
MoniRect := Screen.Monitors[Monitor.MonitorNum].WorkareaRect;
With MoniRect Do
Begin
msg.MinMaxInfo.ptMaxSize := TopLeft;
msg.MinMaxInfo.ptMaxSize := Point((Right - Left), (Bottom - Top));
End;
End;
... reichen?
Man muss doch nicht immer alles auf Teufel komm' raus mit Pointern erschlagen.
Vor Allem wenn auch ein 3-Zeiler den Job erfüllt.
