Как указать для Query - Connection с другой формы???

[tim21701]

Есть две формы - главная и "дополнительная", которая создаётся по вызову... На главной, компоненты для соединения с базой. На дополнительной - расположен Query.
Вопрос:
Как, для дополнительной формы (компонента Query) указать в его свойстве "Connection" - компонент MyConnection первой формы?

[vovk]

прямо при создании формы и укажите,

form_two:=tform_2.create(self)//или как там у вас
form_two.query.Connection:=MyConnection;// кто такой query и MyConnection я не знаю, но надеюсь сказал понятно

[tim21701]

У меня вторая форма создаётся по вызову... Пробовал прописать вот так:

procedure TMainForm.Button1Click(Sender: TObject);
Begin
 Application.CreateForm(TSecondForm, SecondForm);
 SecondForm.Visible:=True;
 SecondForm.Show;
 if SecondForm.Visible=True then
 MyQuery1.Connection:=MyConnection;
End;

Ругается, ему не понятно - что за компонент такой "MyQuery1", потому что его нет на форме. Он расположен то на другой.

Сообщение от vovk

...кто такой query и MyConnection я не знаю, но надеюсь сказал понятно

Это компоненты MyDAC для "прямого" доступа к MySQL...
Сказали то понятно, вот только это не работает... ((

[vovk]

вы внимательно читали?

SecondForm.MyQuery1.Connection:=MyConnection;

?

ЗЫ

Метод Show делает видимым ранее невидимый компонент. Он задает значение True свойству Visible и проверяет, является ли видимым родительский компонент.

так что одна из этих строчек

SecondForm.Visible:=True;
 SecondForm.Show;

вам не нужна

И мне интересно (действительно интересно) почему вы для создания воспользовались Application

Application.CreateForm(TSecondForm, SecondForm);

а не методом класса

 SecondForm:=TSecondForm.create(self);

[tim21701]

Сообщение от vovk

вы внимательно читали?

SecondForm.MyQuery1.Connection:=MyConnection;

Невнимательно. Сори, проглядел )))

Сообщение от vovk

...одна из этих строчек

SecondForm.Visible:=True;
 SecondForm.Show;

вам не нужна...

Да, это я уже понял...

Сообщение от vovk

...почему вы для создания воспользовались Application

Application.CreateForm(TSecondForm, SecondForm);

а не методом класса

 SecondForm:=TSecondForm.create(self);

Да чёрт его знает... Как в учебниках написали - так и сделал )))
Спасибо. Переписал на Ваш вариант. ))