PageControl

[jbg]

Ich hab den Fehler:
Das onClick := Myclick; bezieht sich auf TForm5 und nicht auf TTabSheet, da TTabSheet gar kein OnClick Ereignis hat. Das "OnClick"-Ereignis für die Register kannst du im OnChange von TPageControl abfangen:

Code:

procedure TForm5.PageControl1Change(Sender: TObject);
begin
  case PageControl1.ActivePage.TabIndex of
    0: ...
    1: ...
  end;
end;

Das OnShow von TTabSheet wäre aber glaube ich besser. Ich weiß natürlich auch nicht, was du genau damit vor hast. Probiere einfach beides aus und entscheide dann, was besser ist.