Bueno, es un programa cuando oprimo el boton diseñar me sale un form1.
El form1 tiene dos botones: cancelar y siguiente.
el cogido de cancelar es
Código:
procedure TForm1.BitBtnCancelarClick(Sender: TObject);
begin
Self.close
end;
el codigo de siguiente es:
Código:
procedure TForm1.BitBtnSiguienteClick(Sender: TObject);
begin
//Cierra la ventana Form1
// Self.Close;
//Abre la ventana Form2
if Form2 = nil then
Form2:= TForm2.Create(Self);
Form2.ShowModal;
end;
El form 2 tiene otros dos botones: finalizarDiseno y anterior:
el codigo de anterior es:
Código:
procedure TForm1.BitBtnAnteriorClick(Sender: TObject);
begin
Form2.ShowModal;
end;
Pero el form1 no se esta cerrando cuando oprimo siguiente, y cuando oprimo anterior me sale una excepcion.