Ребят, как передать TADOConnection (или ссылку на него) из главной формы в модальную, а потом из этой модальной во вторую модальную?
Сейчас делаю public методом модальных форм таким образом:
Код:
function TFormEntitySearch.EntitySearchShow(aUser: Integer;
inConnection: TADOConnection): Integer;
begin
aEntity.Connection := inConnection;
Result := ShowModal = mrOK;
end;
Вызов из главной:
Код:
procedure TFormBillAdd.edEntityClick(Sender: TObject);
begin
with TFormEntitySearch.Create(Application) do
try
EntitySearchShow(ICUser, Connection);
finally
Free;
end;
end;
Но вот как из формы TFormEntitySearch передать дальше (в другую модальную) не понимаю.