![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Ребят, как передать 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 передать дальше (в другую модальную) не понимаю. |