hi!
du kannst das mit TabIndex machen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= IntToStr(PageControl1.TabIndex);
end;
so kannst du in Edit1 ausgeben welche Tabnummer (beginnend bei 0) gerade ausgewählt ist.
um beim auswählen eines TabSheets ein anderes anzuzeigen, könntest du folgendes verwenden:
Delphi-Quellcode:
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.TabIndex= 0 then
PageControl1.TabIndex:= 1;
end;
dann wird, wenn du das erste TabSheet auswählst, das zweite angezeigt.
ich hoffe ich konnte dir damit ein bisschen weiterhelfen.
