Gracias por contestar cadetill.
El formulario está creado dinámicamente, es un formulario de mantenimiento de una tabla Firebird.
Cuando el usuario da la orden de grabar los datos, con el método controlo que se hayan metido todos los datos no nulos, para evitar la excepción. Para ello recorro los componentes (dbedit) comprobando si ha introducido algo, si no es así, doy un mensaje de alerta y le mando el foco al dbedit.
Pienso que lo mejor es hacer un método, ya q voy a trabajar con componentes del formulario.
PD. Ya está solucionado el problema, creaba el formulario de esta manera:
procedure TfrmPpal.JfMenuItem9Click(Sender: TObject);
var
form3: Tform3;
begin
{ Creamos la Form}
form3 := Tform3.Create(self);
Try // La hacemos visible
form3.Showmodal;
Finally //Liberamos la memoria, pase lo que pase
form3.Free;
end;
end;
**He visto otro ejemplo para crear el formulario:
procedure TfrmPpal.JfMenuItem9Click(Sender: TObject);
begin
Application.CreateForm(Tform3,form3);
with form3 do
try
ShowModal;
finally
Free;
end;
end;
Así va bien
. Supongo q la diferencia entre una forma y la otra está en q antes creaba una variable local y ahora estoy usando una global a la aplicación.. ¿me equivoco?
Saludos a todos.