ich habe es jetzt erstmal mit application.OnSettingChange ausprobiert aber das funktioniert nicht, da die Procedure nicht ausgelöst wird oder hab ich nen Fehler gemacht?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnSettingChange:=UpdateConstraints;
end;
procedure TForm1.UpdateConstraints(Sender: TObject;Flag:integer;const Section:string;var result:integer);
begin
with Constraints, Screen do
begin
MaxHeight := WorkAreaHeight;
MaxWidth := WorkAreaWidth;
end;
end;
edit: das funktioniert genau so wenig mit deinem anderen Beispiel!