Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#1

Opendialog bringt die Form zum Verschwinden

  Alt 24. Apr 2016, 10:35
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;

Geändert von Bjoerk (24. Apr 2016 um 10:37 Uhr)
  Mit Zitat antworten Zitat