ShowModal ProgressForm - prozess anwerfen?

[Master_BB]

Hya,
ich habe das Problem das ich eine Unit mit einer progressform besitzte.
nun möchte ich aus einer anderen unit diese benutzen mit showmodal.
jedoch springt durch dieses showmodal ja nicht mehr mein vorgang an.

sprich hier

Delphi-Quellcode:

    AScanProgressForm := TScanProgressForm.Create(Self);
    try
      AScanProgressForm.ShowModal;
      ScanObject.ScanMovies(SearchShellTreeView.SelectedFolder.PathName,
                            AScanFormat,
                            UseSubDirsCheckBox.Checked,
                            AScanProgressForm.CallBack);
      AScanProgressForm.Close;
    finally
      FreeAndNil(AScanProgressForm);
    end;

hier sieht man das logischer weise die form da ist aber er nciht mit ScanMovies anfängt weil
die form noch aktiv ist. wie kann ich ohne mein ScanObject nochmals im ScanProgressForm
unterzubringen das dilemma lösen?

Greetz

[Ferber]

Hi, überschreibe die Methode DoShow der Form und starte dort was immer du willst. :wink:

[Master_BB]

hm ne geht ja nicht die form wo mein scanobject deklariert ist ist
ja nicht von der progressform abgeleitet.
die progressform mit ihrer unit ist selbstständig wie auch die
form wos scanobject liegt

[Ferber]

Habe damit gemeint: leite einen Nachkommen von AScanProgressForm ab und Überschreibe dessen DoShowForm,
in DoShowForm ruft du ScanObject.ScanMovies... auf.

[Master_BB]

aso,
naja soganz elegant ist das auch nicht,
ich hab jetzt einfach nen callback in die progressform onshow ereignis routine
eingebaut der auf eine startroutine der aufrufenden unit zeit.