Hola a todos, lo que sucede es que tengo un problema con la funcion showmodal. Yo tengo una forma que contiene un botón, el código de ese botón es:
Código Delphi
[-]
procedure Forma1.BitBtn1Click(Sender: TObject);
begin
Forma2.showmodal;
end;
Se supone que forma1 no debe poder entrar ni debe intrometerse para nada hasta que cierre forma2, el problema es que cuando hago cualquier acción en la forma2 (como dar de alta o dar de baja algo) esta se cierra y aparece la forma1!!
. He estado checándolo por todos lados pero la vdd nos e que pueda ser, aquí les voy a dejar el código de mi botón de altas de la forma2, a ver si algo tiene que ver
(aunque este problema lo tengo con cualquier boton)
Código Delphi
[-]
procedure TAltas.BitBtn1Click(Sender: TObject);
var
mensaje:integer;
begin
if (dbedit1.Text='') or (edit1.Text='') then
begin
mensaje:=Application.MessageBox('No deje el campo vacio. Gracias', 'Error de entrada');
end
else
begin
try
datamodule2.agrega_area.Parameters.ParamByName('nombre').Value:=dbedit1.Text;
datamodule2.agrega_area.Parameters.ParamByName('id_departamento').Value:=edit1.Text;
datamodule2.agrega_area.ExecSQL;
dbgrid1.DataSource.DataSet:=datamodule2.consulta_area;
datamodule2.consulta_area.Active:=false;
datamodule2.consulta_area.Active:=true;
dbgrid1.DataSource.DataSet.Last;
except on E:Exception do
begin
E.Message:='error';
application.MessageBox('No puede haber claves repetidas.Gracias','Error de entrada');
end;
end;
end;
end;
Gracias por la atención XD