[STRG]+[1] oder [STRG]+[2] ....

[binio]

Delphi-Quellcode:

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
    tabsheet1.setfocus;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
    tabsheet2.setfocus;
end;

procedure TForm1.TabSheet3Show(Sender: TObject);
begin
    tabsheet3.setfocus;
end;

klappt leider nicht :(