![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте! Создал форму2, на ней разместил VirtualStringGrid, настроил вид, процедуры, функции... Сохранил...
Затем открыл свой проект и добавил в него эту форму2. Создаю форму2 на главной форме таким образом: Код:
Form2:=TForm2.Create(Self); Form2.Parent := Form1; Form2.Hide; Form2.BorderStyle := bsNone; Ащкь2.Show; Как отловить событие VirtualStringGrid.OnClick из формы Form1? Дело в том, что таких форм, вписанных в основную форму - несколько. И при выделении в первой такой вписанной ворме должно меняться содержимое второй вписанной формы. Процедура управления обновлением вписанных форм находится в главной форме Form1... |
#2
|
||||
|
||||
![]() Цитата:
Каждая из подчинённых форм должна по событию OnClick передавать в главную необходимую информацию через public процедуру, описанную в Form1. |
Эти 2 пользователя(ей) сказали Спасибо Uniq! за это полезное сообщение: | ||
Freeman (18.10.2013),
sorockinalex (18.10.2013)
|
#3
|
|||
|
|||
![]() немного уточню - возможно ли так сделать, если не подключать в uses их друг к другу (вписанные формы)???
|
#4
|
|||
|
|||
![]() Цитата:
|
#5
|
|||
|
|||
![]() Спасибо! Получилось... только объявлять нужно не в разделе public, а тут:
Код:
type TForm2 = class(TForm) private public end; procedure ОБЪЯВЛЯТЬ ТУТ var ... implementation а в разделе implementation формы Form1 вписать Код:
uses Form2 Код:
type TForm1 = class(TForm) private public end; var ... implementation uses Form2 |