Ayuda Boton Siguiente...

[tecnoman]

GRACIAS AMIGOS

PARA EVITAR LOS DESBORDES LO HICE ASI:

procedure TForm1.BSIGUIENTEClick(Sender: TObject);
begin
PageControl1.Pages[PageControl1.TabIndex + 1].Show;

if pagecontrol1.TabIndex >= 1 then
button2.Enabled:=true;

if pagecontrol1.TabIndex >= 2 then
button1.Enabled:=false
else
button1.Enabled:=true;
end;

procedure TForm1.BANTERIORClick(Sender: TObject);
begin
PageControl1.Pages[PageControl1.TabIndex - 1].Show;

if pagecontrol1.TabIndex >= 1 then
button2.Enabled:=true;

if pagecontrol1.TabIndex = 0 then
button2.Enabled:=false
else
button1.Enabled:=true;
end;

LO PROBE CON 3 TABSHEET, DE ESA FORMA PUEDO CONTROLAR QUE CUANDO LLEGUE AL PRIMER O ULTIMO TAP LOS BOTONES SE INACTIVEN, NO SE SI ES LA MEJOR FORMA PERO FUNCIONA

GRACIAS POR SU AYUDA, SON UNOS GENIOS...