TabSheet aktivieren auf dem ein Control ist

[Uwe Raabe]

Zitat von mjustin:

Gibt es einfachere Lösungen

Gibt es:

Delphi-Quellcode:

procedure ForceFocus(const AControl: TWinControl);
var
  control: TControl;
begin
  control := AControl;
  while control <> nil do begin
    if control is TCustomForm then Break;
    if control is TTabSheet then
      TTabSheet(control).PageControl.ActivePage := TTabSheet(control);
    control := control.Parent;
  end;
  AControl.SetFocus;
end;