Fehler: "Deaktiviertes Fenster kann den Fokus nicht erhalten

[marabu]

Moin Jürgen,

bei einer modalen Form, die während ihrer Lebensdauer mehrfach angezeigt wird, kannst du dein im Object Inspector vorgegebenes ActiveControl so durchsetzen:

Delphi-Quellcode:

interface

type
  TTestForm = class(TForm)
    // ...
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FocusedControl: TWinControl;
  end;

implementation

procedure TTestForm.FormCreate(Sender: TObject);
begin
  FocusedControl := ActiveControl;
end;

procedure TTestForm.FormShow(Sender: TObject);
begin
  ActiveControl := FocusedControl;
end;

Freundliche Grüße