|
En el fomulario que llama que es de tipo MDIChild
procedure TDecretos.NovoClick(Sender: TObject);
var EditDecretos:TEditDecretos;
Begin
EditDecretos:=TEditDecretos.Create(self);
with EditDecretos do
begin
Modo:='A';
Show;
end;
Grid.SetFocus;
end;
y en el formulario llamado que es de tipo fsNormal y donde tengo declarada como publica la variable Modo
public
Modo:Char;
Procedure CargaOrd;
Procedure CargaDecTip;
end;
hago en el on show
procedure TEditDecretos.FormShow(Sender: TObject);
begin
if Modo='A' then
begin
LabelModo.Caption:='NUEVO';
SurceDecr.AutoEdit:=True;
SurceDecr.AutoInsert:=True;
QueryDecr.Open;
QueryDecr.Append;
QueryDecr.FieldByName('DECR_FECHA').AsDate:=now();
QueryDecr.FieldByName('DECR_A_USUARIO').AsString:=
Datos.QueryUsu.FieldByName('USU_USUARIO').AsString;
CargaOrd;
QueryDecr.FieldByName('DECR_ORD').AsString:=
QueryOrd.FieldByName('USU_USUARIO').AsString;
CargaDecTip;
QueryDecr.FieldByName('DECR_TIPO').AsInteger:=
QueryDecTip.fieldByname('DECTIP_CODIGO').AsInteger;
Texto.text:=QueryDecr.fieldbyName('DECR_TEXTO').AsString;
end;
E_Fecha.SetFocus;
end;
Y con esto, el formulario se visuliza un segundo y se cierra. Sin embargo, si hago la llamada como show modal, se visualiza bien.
|