partendo da FrmMovimenti su cui ho un Edit1 nel quale devo inserire l'ID_MOVIMENTO ho un button dove attivo una funzione di ricerca:
codice:
procedure TFrmMovimenti.BtnHelpClick(Sender: TObject);
var
rres:string;
begin
rres := Helpest(Edit1.Text);
if rres <> '' then
begin
Edit1.Text:= rres;
BtnCerca.Click ;
end
else
Edit1.SetFocus ;
end;
Function HelpEst(attuale:string) : string;
var
FrmEstratto: TFrmEstratto ;
begin
Application.CreateForm(TFrmEstratto , FrmEstratto);
FrmEstratto.FormStyle:= fsNormal ;
FrmEstratto.Position:= poScreenCenter ;
FrmEstratto.Visible := False ;
FrmEstratto.LblResult.Caption :='';
try
FrmEstratto.Showmodal;
Result := FrmEstratto.LblResult.Caption ;
finally
FrmEstratto.Close ;
end;
end;
nella FrmEstratto.LblResult.Caption scrivo il valore selezionato con doppio click da una dbgrid posta in FrmEstrato
fin qui funziona bene, il problema nasce quando da FrmEstratto premo il button x rintracciare il codice cliente....
in frmEstratto ho un campo dbedit associato ad ibtable1.
(se utilizzo la frmEstratto in modalita MDIChild funziona bene)
codice:
procedure TFrmEstratto.BtnHelpFornitoriClick(Sender: TObject);
begin
IBTable1.FieldByName('FORNITORE').AsString := Helppia('Fornitori', IBTable1.FieldByName('FORNITORE').AsString);
JvDBDateEdit1.SetFocus ;
end;
Function helppia(nometabella,attuale:string) : string;
var
Frm: TFrmHelp ;
begin
Application.CreateForm(TFrmHelp , Frm);
Frm.LblTabella.Caption := nometabella;
Frm.LblResult.Caption := attuale;
try
Frm.Showmodal;
Result := Frm.LblResult.Caption ;
finally
Frm.Close ;
end;
end;
ecco quando chiudo la FormHelp (frm) visualizzata in showmodal viene chiusa anke la precedente frmEstratto anch'essa aperta showmodal
grazie