|
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...
|