|
|
Регистрация | << Правила форума >> | 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 передать дальше (в другую модальную) не понимаю. |
#2
|
||||
|
||||
сохранить в поле ADOConnection
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Цитата:
В Unit'ах модальных форм объявлять главную форму не хочу, т.к. это считается дурным тоном и вообще нарушением принципов ООП. |
#4
|
||||
|
||||
Цитата:
Не стоит путать форумы с богадельнями. © Bargest |
#5
|
|||
|
|||
>Можно подробнее? Я совсем запутался.
Код:
type TFormEntitySearch = class(TForm) ... private FConnection :TADOConnection; ... function TFormEntitySearch.EntitySearchShow(aUser: Integer; inConnection: TADOConnection): Integer; begin FConnection :=inConnection;//а потом раздавай куда хочешь aEntity.Connection := inConnection; Result := ShowModal = mrOK; end; |
#6
|
||||
|
||||
другой вариант: положить ADOConnection в TDataModule
Пишу программы за еду. __________________ |