Duda sobre una excepción

[luisgutierrezb]

De tu codigo:

Código Delphi [-]
 procedure TForm1.Button9Click(Sender: TObject);
 Var
   Form2 : TForm2;
 begin
   if DBEdit1.text = '' then
     Form2 := TForm2.Create (Self);
   Try
     Form2.BorderStyle := BsDialog;
 {...}

aqui tienes que tomar en cuenta que el try se ejecuta de cualquier forma, lo que debes hacer es poner un begin y un end, en la parte "then" del if, porque al intentar asignar el borderstyle y la forma no esta creada, te marca el error...

[Mathom]

Creo que el título es bastante explícito, muchas gracias luisgutierrezb... ara algo evidente pero estaba tan ofuscado que no lo veía por ningún lado...gracias me acabas de ahorrar un buen dolor de cabeza.