|
|
Регистрация | << Правила форума >> | 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 передать дальше (в другую модальную) не понимаю. |