Ver Mensaje Individual
  #5  
Antiguo 02-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola de nuevo.

Mirá, acabo de probarlo así y funciona correctamente.

.- Saqué Form2 de Auto-create forms en Project-> Options

En Unit1: Form1 y Button1. En el evento OnClick de Button1:
Código:
..
Implementation
 
uses Unit2;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled:= False;
  with TForm2.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;
. En el evento OnClose de Form2:
Código:
...
Implementation
 
uses Unit1;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Button1.Enabled:= True;
end;
Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita