evento de tpagecontrol

[gonza_619]

hola a todos queria saber como hacer que suceda algo al cambiar de pestaña en el tpagecontrol, es decir que haga algo como por ejemplo tirar un mensaje.
ok gracias

[ecfisa]

Hola.

Podés usar el evento OnChange del TPageControl.

Código Delphi [-]
procedure TForm1.PageControl1Change(Sender: TObject);
begin
  ShowMessage('TabSheet'+IntToStr(PageControl1.TabIndex+1));
end;

Saludos.