20.05.2010, 18:20
|
|
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863
Репутация:
80
|
|
Такс, с MDI окнами тоже разобрался.
Создаём две формы - Form1, Form2.
Form1.FormStyle := fsMDIForm;
Form2.FormStyle := fsMDIChild;
В Unit1, в разделе uses дописываем Unit2:
uses
......, Unit2;
На Form1 кидаем две кнопки (первая создаёт окна, вторая меняет заголовок определенного ока):
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Owner);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.MDIChildren[2].Caption := 'Woohoo'; // Номер MDI окна указываем тут MDIChildren[номер окна]
end;
Обновил первый пост.
Тему можно закрывать. |
|
|