Einzelnen Beitrag anzeigen

Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#11

AW: Überprüfung bei Programmstart

  Alt 22. Dez 2016, 12:24
Delphi-Quellcode:
begin
  if (not FileExists(ExtractFilePath(Application.ExeName) + 'Test.INI')) then
  begin
    //Einstellungen-Fenster öffnen, Daten selbst eintragen, Übernehmen -> Programm starten
    ShowMessage('Ini-Datei nicht gefunden. Daten im nächsten Schritt selbst eintragen.');
    TFormEinstellungen.Create(Application).Show;
  end;
end;
Edit:
und Action := caFree; ins OnClose von TFormEinstellungen.
Nr.1 Delphi-Tool: [F7]

Geändert von ConnorMcLeod (22. Dez 2016 um 12:30 Uhr)
  Mit Zitat antworten Zitat