Mit Hilfe des Ereignisses OnCanResize eines TForms kann man verhindern, dass der Benutzer das Fenster kleiner oder größer macht als vom Programmierer gewünscht.
Beispiel:
procedure TfrmMain.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin Resize := (NewWidth >= 640) or (NewHeight >= 480); end;
Dieser Code verhindert das verkleinern des Forms unter die Maße Breite 640 und Höhe 480.
Letzte Kommentare