Exception (Fokusproblem) landet im CPU-Register

[himitsu]

OK, dachte das war beim SetFocus auch so,
aber nur beim Show wird umgelättert.

Edit2 auf nicht sichtbarem TabSheet

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Edit2.Show;
  Edit2.SetFocus;
end;

// oder
begin
  Edit2.Show;  // übergeordnete PageControls umblättern, falls nötig
  if Edit2.CanFocus then
    Edit2.SetFocus
  else
    GetParentForm(Edit2).ActiveControl := Edit2;
end;