Ver Mensaje Individual
  #1  
Antiguo 15-11-2005
Mathom Mathom is offline
Miembro
 
Registrado: nov 2005
Posts: 72
Reputación: 19
Mathom Va por buen camino
Duda sobre una excepción

Hola a todos, resulta que tengo un dbgrid con una tupla vacia y el resto con datos. El tema es que quiero poner un botón "nuevo" para crear un nuevo registro. El botón lleva a un formulario nuevo donde insertamos los datos. Lo que quiero es que si la tabla está en un registro con datos salga un mensage que dice que se situe en el registro en blanco y si está en blanco pues que acceda al formulario "nuevo". El código que he puesto es el siguiente pero me da un error en tiempo de ejecución si el registro tiene datos. Podéis decirme a que se debe??

Código Delphi [-]
  procedure TForm1.Button9Click(Sender: TObject);
 Var
   Form2 : TForm2;
 begin
   if DBEdit1.text = '' then
   Form2 := TForm2.Create (Self);
   Try
     Form2.BorderStyle := BsDialog;
     Form2.ShowModal;
   Finally
     Form2.Destroy;
   End;
   if DBEdit1.text <> '' then
     ShowMessage ('¡Sitúese en la celda en blanco para crear un nuevo registro!')
 end;
Gracias

Última edición por dec fecha: 15-11-2005 a las 15:59:00. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita