VPF::Дублирование MDI-Child - Форум программистов

Serggggg

Дата 31.8.2004, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 12.12.2003
Где: Донецк, Украина

Репутация: нет
Всего: нет

Доброго всем времени суток!
Прошу помощи! Приложение использует MDI-архитектуру.
Нужно: при попытке открытия MDI-Child-окна отследить, открыто ли оно. Если да - вынести на передний план, нет - создать экземпляр.
При вызове из главного окна программы (из меню, например) я решаю этот вопрос так:

Код


procedure TFMain.Button1Click(Sender: TObject);
var
 i :integer;
 f : boolean;             // флаг - была ли найдена такая форма
begin
 f:=False;
 // Просмотр всех открытых MDI-окон
 for i:=0 to FMain.MDIChildCount-1 do
     if (FMain.MDIChildren[i] is TFComp) then
        f:=True;
 // Если нужная форма найдена, 
 if f then begin
    // Вынесли ее вперед
    FComp.BringToFront;
    if FComp.WindowState=wsMinimized then
       FComp.WindowState:=wsNormal;
    end   
    // В противном случае - создаем экземпляр
    else Application.CreateForm(TFComp,FComp);
end;

Вопрос: Теперь надо сделать то же самое, но при попытке вызова MDI-Child не из главного окна программы, а из другой MDI-Child.
Помогите, если кто знает!

--------------------

C уважением, Serggggg.

<Spawn>

Дата 31.8.2004, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Попробуй через (MDIChildForm.Parent as TForm).MDIChildren[i]

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Serggggg

Дата 31.8.2004, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 12.12.2003
Где: Донецк, Украина

Репутация: нет
Всего: нет

<Spawn>, попробовал - вылетает Access Violation

Речь вообще идет о том, чтобы в приложении, использующем MDI, создавать экземпляр формы (чтобы обращаться к свойствам и методам этой формы). При этом для корректной работы (как ты мне когда-то давно советовал) нужно, чтобы каждое дочернее MDI-окно открывалось только 1 раз.
Вот это я и пытаюсь реализовать.

--------------------

C уважением, Serggggg.

Serggggg

Дата 31.8.2004, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 12.12.2003
Где: Донецк, Украина

Репутация: нет
Всего: нет

Ответ был найден!
Спасибо всем за внимание.
Решение достаточно простое - при любом вызове (откуда-угодно) используется обработчик:

Код


procedure TForm1.Form21Click(Sender: TObject);
begin
 if Not Assigned(Form3) then
    Application.CreateForm(TForm3,Form3)
    else
    Form3.BringToFront;
end;

При этом в вызываемых MDIChild-окнах необходимо сделать следующий обработчик OnClose:

Код


procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
 Form3:=Nil;
end;

--------------------

C уважением, Serggggg.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »