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

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;

---

← →
YuRock ©   (2004-01-22 20:41) [3]

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

Точнее

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


---

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

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



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