Обращение из формы к компанентам расположенным на MDIChild форме [D5, Win95/98]
ProfiUgl © (2002-07-24 09:13:00)
Доброго дня суток мастера!
Существует такая ситуация: Есть MDIChild форма, ну например
MDIChild1, есть обычная форма, ну например MyForm.
Проблема заключается в следующем. Как мне обратится к
компоненту расположенному на MDIChild1 (например Edit1) из формы
MyForm?
Вот так вот не получается: MDIChild1.edit1.text := "Delphi",
вылетает AV.
Builder (2002-07-24 09:49:00) [1]
Просто нужно получить указатель на активную форму.
Для этого уже есть ActiveMDIChild, но просто его нужно
привести к твоей классу твоей МДИЧайлда.
(ActiveMDIChild as TMyMDIChild)
Можно и самому следить за всем:
TMYMDIChild TMainForm.ActiveMDI_my()
var
i : integer;
begin
for i := 0 to ChildrenForm.Count - 1 do
if ActiveMDIChild = ChildrenForm.Items[i] break;
if (i <> ChildrenForm.Count)
Result := (ChildrenForm->Items[i]) as TMYMDIChild;
else Result := nil;
end;
Наверх 
ЧАТ |
Орешник |
|
