ElPageControl Focus-Error

Quanos Service Solutions GmbH

We get some sporatic errors on focus-setting.
Please modifie TElPageControl.SetActivePage(Value: TElTabSheet);


      if Assigned(LForm) and (LForm.Enabled and LForm.Visible) then
      begin
        if (Enabled and Visible) and Multiline then
        begin
            //DOCWARE No Focus if InvalidateRect on a uncreated Window is not, in some cases Exception: no Parent-Window
          try
            if IsControlVisible(Self) then                             <---- New Check
              SetFocus;
          except
          end;
        end;
      end;


Our IsControlVisible-function is:

function IsControlVisible(AControl: TControl): Boolean;
var
  parent: TControl;
begin
  parent := AControl;
  result := False;

  while Assigned(parent) do
  begin
    result := True;

    if parent.Visible = FALSE then
    begin
      result := False;
      parent := nil;
    end
    else
    begin
      parent := parent.Parent;
    end;
  end;
end;

Eugene Balabuev (LMD)

May be better to use HandleAllocated as an additional condition?

Quanos Service Solutions GmbH

Is the result is the same - OK.

Eugene Balabuev (LMD)

Should be Ok. I've made code modifications.