PageControl-tabsheet-focus

[poterp]

Hallo,
so habe ich es gelöst:

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage.Caption = Tabsheet1.Caption then
begin
showmessage('hallo');
end
else
if PageControl1.ActivePage.Caption = Tabsheet2.Caption then
begin
showmessage('Na');
end
else
if PageControl1.ActivePage.Caption = Tabsheet3.Caption then
begin
showmessage('3');
end
else
end;

grüß
poter