Foros Club Delphi - Ver Mensaje Individual

luisgutierrezb · #3 15-11-2005

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...