Foros Club Delphi - Ver Mensaje Individual

[felipe88] · #7 10-10-2010

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!