Check om groupbox isBringToFront=true

Der findes muligvis en bedre metode men dette giver dig front Groupboksen:

function GetFrontGroupBox(WinControl : TWinControl) : TGroupBox;
var
  i : integer;
begin
  for i:=0 to WinControl.ControlCount-1 do
    if (WinControl.Controls[i] is TGroupBox) then
      result:=(WinControl.Controls[i] as TGroupBox);
end;

-----------

Hvis dine Groupbokse er på din form så:
showmessage(GetFrontGroupBox(Self).Caption);

Eller:

function GetFrontGroupBox(WinControl : TWinControl) : TGroupBox;
var
  i : integer;
begin
  for i:=WinControl.ControlCount-1 downto 0 do
    if (WinControl.Controls[i] is TGroupBox) then
    begin
      result:=(WinControl.Controls[i] as TGroupBox);
      exit;
    end;
  result:=nil;
end;

Hej kroning

Det virker bare, tak for hjælpen. Vil du lige ligge et svar.

ok

Jeg hader, hader, hader, hader, hader (frit efter Ålen Aalbæk) når man placerer komponenter ovenpå hinanden. Det er noget rod. Brug en TPaceControl hvor TTabSheet.TabVisible (?) := false i stedet.