TabSheet aktivieren auf dem ein Control ist

**mjustin**

Wenn nach einer Validierung der eingegebenen Werte feststeht, dass ein Control einen ungültigen Wert enthält, soll dieses aktiviert werden (mit SetFocus). Das geht nicht, wenn das Control auf einem inaktiven TabSheet eines PageControls ist.

Mit diesem Code soll das TabSheet aktiviert werden, auch in dem Fall dass das PageControl selber auf einem TabSheet ist.
Gibt es einfachere Lösungen, oder sogar etwas in gängigen Bibliotheken wie z.B. Jedi?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TryActivateTabSheetContaining(const AControl: TControl);

var

   PC: TPageControl;

   function FindPageControlRecursiveFor(const AControl: TControl): TPageControl;

   begin

      if AControl.Parent is TForm then

         Exit(nil)

      else if AControl.Parent is TTabSheet then

      begin

         Result := AControl.Parent.Parent as TPageControl;

         Result.ActivePage := AControl.Parent as TTabSheet;

         Exit;

      end

      else

         Exit(FindPageControlRecursiveFor(AControl.Parent));

   end;

begin

   PC := FindPageControlRecursiveFor(AControl);

   if PC = nil then

      Exit

   else

      TryActivateTabSheetContaining(PC);

end;

(Als Umgebung wird Delphi 10.2 verwendet)

TabSheet aktivieren auf dem ein Control ist

TabSheet aktivieren auf dem ein Control ist

Forumregeln