Ayuda Boton Siguiente...

[cmm07]

ok una cosilla más, si quieres q se vea como un panel sencillo y ordinario , entonces revisa el componente TNotebook, puedes cambiar de hoja o página con esto:

Código Delphi [-]
Notebook1.PageIndex := Notebook1.PageIndex + 1

saludos!


otra cosilla, para poner código de delphi aqui te recomiendo q uses el comando "[ Delphi]" <- el q inicia la instrucción, ny "[ /Delphi] <- el q cierra.

ej :
"[ DELPHI]
MI CODIGO
[/delphi]"

saludos , sin las comillas ni los espacios eh?!

[[felipe88]]

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!