Opendialog bringt die Form zum Verschwinden

[Bjoerk]

Ich habe eine Form die modal aufgerufen wird. Dort wird per Speedbutton ein Opnedialog aufgerifen. Der Opendialog bringt die Form zum Verschwinden. Darüber hinaus bleibt auch ein ActiveControl ohne Wirkung. An was kann das denn liegen?

Delphi-Quellcode:

procedure TStartForm.FileOpenSpeedButtonClick(Sender: TObject);
begin
  if OpenDialog.Execute then // -> Form Weg
  begin
    FFileName := OpenDialog.FileName
    Close; // OK.
  end;
end;

procedure TStartForm.FormActivate(Sender: TObject);
begin
  if FLastFiles.Count > 0 then
    AbrufenListBox.ItemIndex := 0;
  ActiveControl := AbrufenListBox;
end;

[Luckie]

Das Close bezieht sich doch auf die Form oder nicht? Und auch wenn es das nicht tut, ist es bei einem OpenDialog überflüssig.

[Daniel]

Die Execute-Funktion verfügt über einen optionalen Parameter, in dem Du das Handle Deines Fensters übergeben kannst. Dadurch wird die korrekte Reihenfolge sichergestellt.

[Bjoerk]

Das Close wird doch nur ausgeführt wenn OpenDialog.Execute true ist. Und das soll es (hier) auch. Das Handle funktioniert. Thanx! Was ist noch mit dem ActiveControl. Wieso hat die Listbox den Fokus denn nicht? Kapier ich nich..

[Luckie]

Ah. Denkfehler von mir. Alles gut.