TabSheet aktivieren auf dem ein Control ist

[Der schöne Günther]

Es geht noch viel einfacher: Einfach das entsprechende TEdit mit Show() sichtbar machen, das PageControl wechselt dabei automatisch auf das richtige TabSheet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   asNumber: Integer;
begin
   if(not Integer.TryParse(Edit1.Text, asNumber)) then
      begin
         Edit1.Show();
         Edit1.SetFocus();
      end;
   if(not Integer.TryParse(Edit2.Text, asNumber)) then
      begin
         Edit2.Show();
         Edit2.SetFocus();
      end;
end;