Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

как определить имя child формы   Найти похожие ветки 

 
DKalinin ©   (2002-11-01 13:46) [0]

Есть TableEditForm.
При нажатии нужной кнопки на MainForm создается MDIChild
и у него меняется имя.

На show дочернего окна пытаюсь определить его имя
Self.Name но оно почему-торавно TableEditForm.

что я делаю не так?


 
Андрей Прокофьев ©   (2002-11-01 13:50) [1]

Помоему MDIСhildren" ам делается Visible еще в конструкторе
те OnShow работает еще до изменения имени


 
DKalinin ©   (2002-11-01 13:51) [2]

так я Name меняю сразу после Create


 
Андрей Прокофьев ©   (2002-11-01 13:52) [3]

поставьте breakpoints в OnShow и посмотрите


 
DKalinin ©   (2002-11-01 14:04) [4]

посмотрел

show происходит сразу после create

если смотреть self.caption
то оно равно имени родителя, а меняется потом,
когда форма уже показана.

в on show имя тоже такое же(как у родителя)
что я не так делаю?


 
DKalinin ©   (2002-11-01 14:19) [5]

в таком случае как создать потомка с заранее заданным именем,
отличным от родительского?


 
Андрей Прокофьев ©   (2002-11-01 14:22) [6]

Объясните, в чем проблема?
Может, есть другие решения.


 
DKalinin ©   (2002-11-01 14:26) [7]

Есть форма, от которой я порождаю потомков.
(редактирование данных в таблицах БД в ней реализовано)
Потомков порождаю для разных таблиц. соответственно одним из параметров для Query, которые лежат на этой форме является таблица, которую надо редактировать.

в OnShow хотелось бы сформировать запрос в зависимости от того, для редактирования какой таблицы потомок породился и забрать данные с сервера.


 
Андрей Прокофьев ©   (2002-11-01 14:32) [8]

переопределите конструктор MDIChid формы
TForm2 = class(TForm)
private
{ Private declarations }
FTableName : String;
public
{ Public declarations }
constructor Create(AOwner: TComponent; TableName : String); reintroduce; overload;
end;

implementation

constructor TForm2.Create(AOwner: TComponent; TableName : String);
begin
inherited Create(AOwner);
FTableName := TableName;
end;

и используйте это FtableName как угодно




Страницы: 1 вся ветка

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.018 c
1-34105
stone
2002-10-31 15:43
2002.11.11
Корректное уничтожение клиента на сервере приложений


1-33934
KDCF
2002-10-31 22:41
2002.11.11
Народ помогите!!!


7-34282
Ded Moroz
2002-09-06 23:36
2002.11.11
Voice modem


14-34196
vopros
2002-10-21 11:48
2002.11.11
Кто посоветует, хорошую школу где обучают


1-33986
neXt
2002-11-01 12:43
2002.11.11
Текстовый файл в ресурсах.