MDIForm ы

← →
Yegorchic (2004-01-22 20:16) [0]

Здрасте все...
Вот у меня тут проблема...
Вот, например, имеется много MDIChild"ов...
Нужно с MDIForm"ы на активной MDIChild в Memo написать текст, например, "Привет."
А у меня почему-то, совсем на другой форме этот текст появляется...
(Если чесно, то я вообще первый раз пытаюсь сделать что-то типо этого с MDIForm"ами).
Вот код:
------------------
...
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.Memo1.Lines.Add("Привет.");
end;
...
------------------
Помогите, плз...

← →
Тимохов © (2004-01-22 20:20) [1]

> Form2.Memo1.Lines.Add("Привет.");

Нафиг тебе Form2 здесь сдался?
Убери его, если хочешь вывести текст на текущей форме.

← →
Юрий Зотов © (2004-01-22 20:21) [2]

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TForm2(ActiveMDIChild).Memo1.Lines.Add("Привет.")
end;

> Юрий Зотов © (22.01.04 20:21) [2]

Точнее
procedure TForm1.BitBtn1Click(Sender: TObject); begin if Assigned(ActiveMDIChild) TForm2(ActiveMDIChild).Memo1.Lines.Add("Привет.") end;

MDIForm ы Найти похожие ветки