Текущий архив: 2004.02.06;
Скачать: 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 вся ветка
Текущий архив: 2004.02.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.039 c
