Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.032 c