Überprüfung bei Programmstart

[Freyr77]

Zitat von TBx:

Du hast lEinstellungen noch nicht intantiiert, versuchst aber dennoch, darauf zuzugreifen. Das kann nicht funktionieren.

Richtig. Ich überlege gerade wie ich das am besten umsetze. Ich werde wohl mal a.defs Vorschlag versuchen.

[H.Bothur]

mache so etwas so:

Delphi-Quellcode:

Var:
  ProgrammGestartet: Boolean;

im OnCreate:
  ProgrammGestartet := False;

im OnShow:
  if not ProgrammGestartet then 
  begin
    PrüfeObIniDatei
    if NotIniDatei
    begin
      Abfragen
    end;
  end;

Und ja - das geht bestimmt besser und eleganter, aber ich programmiere immer noch in Delphi 6.0

Hans

[Luckie]

Und guck dir mal an, was das ParamStr(0) + 'Test.INI' ergibt. Ich denke nicht, dass du das willst.

[ConnorMcLeod]

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.

[Freyr77]

Zitat von ConnorMcLeod:

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.

Es kracht immer wenn ich versuche die Einstellungen Form zu öffnen. Selbst wenn ich sie vorher "Create". Ich verstehs nicht.

[ConnorMcLeod]

Zeig mal, wie Du es machst.
Und die Krachermeldung.

[nahpets]

1. Verlege die Prüfung aus dem Create in eine eigene Methode des Formulars (z. B. TForm1.CheckIni)
2. Füge vor der Zeile Application.Run die Prüfung in die dpr ein.

Z. B.:
if Form1.CheckIni then Application.Run; Ist der Rückgabewert von CheckIni <> true, wird das Programm nicht gestartet.

CheckIni könnte so in der Art aussehen:

Delphi-Quellcode:

function TForm1.CheckIni : Boolean;
begin
  if not FileExists(ChangeFileExt(Application.ExeName,'.ini')) then
  begin
    // Du musst hier dafür sorgen, dass das Einstellungsformular auch einen passenden Rückgabewert hat.
    // Buttons haben dafür z. B. die Eigenschaft ModalResult.
    Result := FormEinstellungen.ShowModal = mrOK;
  end;
end;

[Freyr77]

Result := TFormSettings.ShowModal = mrOk; Hier kracht er wieder bei mir.

Im dpr sieht das jetzt so aus:

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Application';
  Application.CreateForm(TApplication, Application);
  Application.Create;

  if Application.CheckIni then
  Application.Run;
end.

[a.def]

Zitat von H.Bothur:

mache so etwas so:

Delphi-Quellcode:

Var:
  ProgrammGestartet: Boolean;

im OnCreate:
  ProgrammGestartet := False;

im OnShow:
  if not ProgrammGestartet then 
  begin
    PrüfeObIniDatei
    if NotIniDatei
    begin
      Abfragen
    end;
  end;

Und ja - das geht bestimmt besser und eleganter, aber ich programmiere immer noch in Delphi 6.0

Hans

Ich würde eher eine Kombination aus WMFormVisible und Paint nehmen.
http://www.delphipraxis.net/190560-f...-zu-sehen.html