Thema: Delphi Neues Fenster erstellen

Einzelnen Beitrag anzeigen

daniel8520
(Gast)

n/a Beiträge
 
#1

Neues Fenster erstellen

  Alt 23. Jul 2004, 16:58
Hallo Leute,

ich bin grad voll am verzweifeln. Ich bin grad dabei so nen kleinen Browser zu proggen. Dafür hab ich auch so ne Art Downloadmanager gebastelt-besser gesagt: Ich bin noch dabei. Und jetzt fangen meine Probleme an.
Ich wollte es so handhaben, dass wenn die Endung der Datei in der Adressleiste z.B. 'exe' ist ein kleines Form (nennen wir es DownloadForm) aufgeht, und die datei herunterlädt. Funktionier auch. Nun wollte ich aber so haben, dass ich bzw. der User nicht nur eine datei runterladen kann, sondern mehrere DownloadForms gleichzeitig auf haben kann. Ich dachte, man kann das so lösen:

Delphi-Quellcode:
.
.
.
var
  Fenster: TDownloadForm;
begin
  Fenster := TDownloadForm.Create(MainForm);
  Fenster.StartDownload(URL);
end;
In der Prozedur Fenster.StartDownload steht folgended:
Delphi-Quellcode:
var
  DownloadingFileName: String;
  DownloadingFilePath: String;
begin
  DownloadingFileName := GetFileNameOfURL(URL);
  DownloadingFilePath := GetPathOfDataURL(URL);
  FileNameLabel.Caption := DownloadingFileName;
  OrtLabel.Caption := DownloadingFilePath;
  Save.FileName := DownloadingFileName;
  URLOfFile := URL;
  DownloadDataForm.Show;
end;
Wenn ich das DownloadForm jetzt klassisch über DownloadForm.StartDownload(URL); aufrufe klappt alles prima!
Rufe ich es aber wie oben beschreiben über meine Fenster Variable auf, klappt außer dem DownloadForm.Show; nichts.
D.h. die Label's z.B. bekommen keine neue Caption usw.

Kann mir evtl. jemand sagen, woran das liegen könnte?
  Mit Zitat antworten Zitat