Ver Mensaje Individual
  #5  
Antiguo 10-10-2010
Avatar de felipe88
[felipe88] felipe88 is offline
Miembro Premium
 
Registrado: may 2007
Ubicación: Mi Valle del Cauca... Colombia!!!
Posts: 1.120
Reputación: 19
felipe88 Va por buen camino
Optimizado, con excepciones y habilitando o deshabilitando el boton

Código Delphi [-]
procedure TForm1.btatrasClick(Sender: TObject);
begin
  PageControl1.TabIndex := PageControl1.TabIndex - 1;
  btatras.Enabled := (PageControl1.TabIndex <> 0);
  btsiguiente.Enabled := True;
end;

procedure TForm1.btsiguienteClick(Sender: TObject);
begin
  PageControl1.TabIndex := PageControl1.TabIndex + 1;
  btsiguiente.Enabled := (PageControl1.TabIndex <> (PageControl1.PageCount - 1));
  btatras.Enabled := True;
end;


Saludos!
__________________
Web
Responder Con Cita