Hallo!
Ich möchte, dass sich ein Programm erst dann ausführen lässt bzw. Form1 öffnet, wenn eine Bedingung erfüllt wurde.
In diesem Falle soll das Programm erst starten, wenn die Bildschirmauflösung höher ist als 800x600 Pixel. Sollte dies nicht der Fall sein, soll ein MessageDlg angezeigt werden, und das Programm soll sich danach automatisch schließen.
Bisher sieht mein Versuch so aus:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
If (Screen.Monitors[0].Width<=800) or (Screen.Monitors[0].Height<=600) then
begin
Application.ShowMainForm:=false;
Beep;
MessageDlg('Diese Bildschirmauflösung wird nicht unterstützt', mterror, [mbok], 0);
Form1.Close;
end;
end;
Problem ist, dass sich die Anwendung im Falle der zu niedrigen Auflösung trotz Anweisung Form1.Close nicht schließt sondern unsichtbar weiter ausgeführt wird.
Außerdem ist die Bedingung nicht direkt unter Form1.FormCreate setzbar, da das Programm in diesem Falle beim Starten einen Fehler anzeigt und beendet werden muss.
Kann mir jemand weiterhelfen?