VCL-Anwendung starten und Funktion ausführen

[bra]

Irgendwie stehe ich gerade auf dem Schlauch. :?
Ich habe eine Anwendung, die Dateien verarbeitet. Die soll einfach nur ein Fenster (VCL) anzeigen und direkt nach dem Start loslaufen und Meldungen im Fenster ausgeben, ohne dass man noch irgendwas anklicken soll.
Bekommt man das irgendwie hin, ohne die Ausführung in einem Thread laufen zu lassen?

[BerndS]

Hallo,
ich mache das so:

Delphi-Quellcode:

...
Application.CreateForm(TMyForm, MyForm);
Application.OnIdle := MyForm.FirstAction;
Application.Run;

und dann

Delphi-Quellcode:

procedure TMyForm.FirstAction;
begin
  Application.OnIdle := nil;
  ...
end;

[tomkupitz]

Nimm einen Timer. Nicht schön, geht aber.

Warum keinen Thread?

[Sherlock]

OnFormShow?

Sherlock

[nahpets]

Im FormCreate einfach die Funktion aufrufen, die automatisch gestartet werden soll?

Ein VCL-Programm von mir, das wahlweise als 'normale' Anwendung oder als Batchprogramm laufen soll, macht das so:

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TfmDPMain, fmDPMain);
  Application.CreateForm(TfmUrlListe, fmUrlListe);
  Application.CreateForm(TfmAbout, fmAbout);
  Application.CreateForm(TdmSynHighlighter, dmSynHighlighter);
  Application.CreateForm(TfmKonfigurationAuswaehlen, fmKonfigurationAuswaehlen);
  if fmAbout.bMD5Checked then begin
    fmDPMain.acl.CreateMenu;
    if ParamCount = 1 then begin
      Try
        fmDPMain.Show;
        fmDPMain.edBatchVerarbeitungIniFile.Text := ParamStr(1);
        fmDPMain.acIniDateiLadenExecute(Nil);
        fmDPMain.pc.ActivePageIndex    := 2;
        fmDPMain.acBatchAusfuehren.Tag := 1;
        fmDPMain.acBatchAusfuehrenExecute(Nil);
        fmDPMain.acSchliessenExecute(nil);
      except
        on e : Exception do begin
          ShowMessage(e.Message);
        end;
      end;
      fmUrlListe.tbUrlListe.SavePersistent;
      fmUrlListe.tbUrlListe.Close;
    end else begin
      Application.Run;
    end;
  end;
end.

Oder kurz und knapp:
Statt

Delphi-Quellcode:

Application.Run;

Delphi-Quellcode:

Form1.Show;
DieAuszufuehrendeRoutine;
Form1.Close;

[bra]

Super, ich danke euch. Mir hat einfach das Form.Show gefehlt. So funktioniert es :-D

Kein Thread deswegen, weil das nur ein einfacher Job ist, der einmal verwendet wird und ich es nicht zu kompliziert machen wollte ;)

[hoika]

Hallo,
ich würde statt OnShow OnActivate benutzen.
OnShow kann mehrfach aufgerufen werden.

PS:
OK, OnActivate auch, aber hier hilft als 1. Zeile OnActivate := nil;

[Sherlock]

Oder man spendiert sich ein

Delphi-Quellcode:

fRunOnce:Boolean

.

Sherlock