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.

procedure TForm1.PageControl1Change(Sender: TObject);
begin
ShowMessage('TabSheet'+IntToStr(PageControl1.TabIndex+1));
end;


Saludos. :)