|
mas completo ...
en este caso deberias alterar tu procedimiento de llamada y agregarle el
Application Ej-
tu llamada deberia quedar asi
"Crear_form(Application ;1;2; couble ?);"
debes Mandarle el TApplication
procedure Crear_form(A: TApplication ;a: Integer; b: Integer; couble);
begin
Application.Handle := A.Handle;
frmKardex1 := TfrmKardex1.Create(A);
frmKardex1.suc := a;
frmKardex1.ttr := b;
frmKardex1.TCambio:=c;
frmKardex1.ShowModal;
while frmKardex1 <> nil do
FreeAndNil(frmKardex1);
end;
|