Скачать: CL | DM;

Обращение из формы к компанентам расположенным на 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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c