PageControl-tabsheet-focus

[Matze]

Hallo poter,

wenn ich es richtig verstanden habe, müsste es so gehen:

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  ShowMessage('Hallo ' + PageControl1.ActivePage.Caption);
end;