ShowModal schlägt fehl

[uligerhardt]

Zitat von Neutral General:

Delphi-Quellcode:

procedure TDachser_FTP.VwwDBComboDlg1CustomDlg(Sender: TObject);
var tmp: TFTPOpenDialog;
begin
  tmp := TFTPOpenDialog(Self); // OMG ICH DEPP
  try
    tmp.ShowModal;
  finally
    tmp.Free;
  end;
end;

Ich schreib ja lieber

Delphi-Quellcode:

var
  tmp: TFTPOpenDialog;
begin
  tmp.Create(Self); // <==
  // ...

Kommt zur Laufzeit auch gut.