Обращение из формы к компанентам расположенным на MDIChild форме

← →
ProfiUgl © (2002-07-24 09:13) [0]

Доброго дня суток мастера!
Существует такая ситуация: Есть MDIChild форма, ну например MDIChild1, есть обычная форма, ну например MyForm.
Проблема заключается в следующем. Как мне обратится к компоненту расположенному на MDIChild1 (например Edit1) из формы MyForm?
Вот так вот не получается: MDIChild1.edit1.text := "Delphi",
вылетает AV.

← →
Builder © (2002-07-24 09:49) [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;

Обращение из формы к компанентам расположенным на MDIChild форме Найти похожие ветки