Hallo, ich öffne form 2 so.
TPatientenblattFrm.Create(Application.MainForm, Patient1Qry.FieldByName('PatientNr').AsInteger, TiereQry.FieldByName('TiereNr').AsInteger);
nun schließe ich die form 2 und möchte direkt an der Pos. in Form 1 weitermachen wo ich Form 2 aufgerufen habe.
Hier weitermachen.
Delphi-Quellcode:
PatBlattQry.close;
PatBlattQry.ParamByName('PATIENTNR').AsInteger := TiereQry.FieldByName('PATIENTNR').AsInteger;
PatBlattQry.Open;
if (PatBlattQry.RecordCount > 0) then
btnPatblatt.Font.Color := clred
else
btnPatblatt.Font.Color := clWindowText;
btnPatblatt.Refresh;
Geht das? Wenn ja wie.