Wann ist ein Formular fertig geladen und angezeigt?

[Marco Steinebach]

Hallo zusammen,
tschuldigung, besser konnte ich den Betreff nicht formulieren.
Folgendes Szenario: Hauptformular ruft ein zweites auf, nenne wir es FormCopy. Das wird modal angezeigt.
Das FormCopy muß als erstes, nachdem es fertig angezeigt ist!, einen weiteren Dialog öffnen, der fragt, wohin Dateien kopiert werden sollen, und anschließend macht es genau das, nämlich Dateien kopieren.
Wie kann ich aber im FormCopy wissen, wann ich fertig bin? Ich kann ja den Aufruf zum Suchen des Pfades schlecht in die ShowModal schreiben, die sollte ja erstmal komplett durchlaufen sein, oder seh ich da was falsch?
Workarround, im Hauptformular erst den Pfad-Dialog aufrufen, wenn der Durch ist den Pfad an FormCopy übergeben, und dann FormCopy.ShowModal aufrufen. Aber ehrlichgesagt, hat der Dialog nix mit dem Hauptformular zu tun, dann sollte er da auch nicht rumliegen.
Für Antwrten wäre ich wirklich dankbar!
Freundliche Grüße
Marco

[Andreas L.]

Du kannst das so machen: Deaktiviere das automatische erstellen der FormCopy in den Projektoptionen und füge folgenden Code zu FormCopy hinzu:

Delphi-Quellcode:

class function TFormCopy.Execute:Boolean;
begin
  with TFormCopy.Create(nil) do
  begin
    //form ist fertig geladen wird aber noch nicht angezeigt, weiteren dialog anzeigen, dateien kopieren, etc.
    ...    
    ...

    //Form anzeigen
    Result := ShowModal = mrOK;

    //freigeben
    Free;
  end;
end;

Aufruf aus Hauptform:

  TFormCopy.Execute;

[Micha88]

Ich mache es ungefähr so:
Alle Dateien erstmal mit "suchen" und in eine Liste, z.B. TStringList schreiben.

Diese gehe ich dann mit einer for-Schleife durch, ja. Wenn die Schleife fertig ist, hab ich genau das erreicht, was du oben gefragt hast.

Delphi-Quellcode:

var i: Integer; sl: TStringList;
begin
 sl: TStringList.Create;
 // Hardcodiert, zum Test
 sl.Add('C:\file1.exe');
 sl.Add('C:\file2.exe');
 sl.Add('C:\file3.exe');
 try
  for i := 0 to sl.Count - 1 do
   begin
    Application.ProcessMessages;
    CopyFile(PWideChar(sl.Strings[i]), PWideChar('C:\neuerOrdner\' + ExtractFileName(sl.Strings[i]))); 
   end;
 finally
  sl.Free;
 end;
end;

[DeddyH]

So wie ich das verstehe, geht es hier um ein ähnliches Problem: http://forum.delphi-treff.de/showthr...FileOpenDialog

[Marco Steinebach]

Zitat von DeddyH:

So wie ich das verstehe, geht es hier um ein ähnliches Problem: http://forum.delphi-treff.de/showthr...FileOpenDialog

Joa, genau da war's versteckt. In meinem Fall einfach den Aufrufl, also das Ausführen, des Pfad-Anzeigen-Dialoges in eine Prozedur, die via Message aufrufen, alles schön!
Ganz herzlichen Dank!!!
Das mit der CopyForm hätte mir auch gefallen, aber, ich glaube, dafür ist mein D5 zu alt.
Einen schönen Tag wünscht
Marco