MDI интерфейс

← →
alexey_mas © (2007-03-07 16:31) [0]

Прошу помочь с несколькими вопросами по MDI интерфейсу.
Есть MDIForm форма и несколько MDIChild форм.
нужно чтобы MDIChild форма запускалась один раз только.
делаю так:
procedure TMainForm.Work_stationClick(Sender: TObject); var f:Tadmin_station; begin if Assigned(admin_station) then admin_station.BringToFront else begin f:= Tadmin_station.Create(Application); f.Show; end; end; //admin_station- имя MDIChild формы
В результате на сторку admin_station.BringToFront никогда не попадаю. Assigned всегда false. И создается несколько форм. Почему Assigned всегда false?

Также на главную форму кидаю Panel. При появлении окон MDIChild панель перекрывает их(т.е. панель всегда получается сверху). Как сделать чтобы панель была видна только на главном окне?

Заранее спасибо.

← →
SlymRO © (2007-03-07 16:34) [1]

procedure TMainForm.Work_stationClick(Sender: TObject);
begin
if Assigned(admin_station) then
admin_station.BringToFront
else
begin
admin_station:= Tadmin_station.Create(Application);
end;
end;

← →
alexey_mas © (2007-03-07 16:41) [2]

спасибо получилось.
а по поводу панели не подскажешь?

← →
NiGGa © (2007-03-07 17:06) [3]

Свойство Parent у дочерних форм есть
MDIChildForm.Parent := MDIForm.Panel

← →
Плохиш © (2007-03-07 17:07) [4]

MDIMainForm не преднозначена для кидания на неё в область отображения MDIChildForm каких-либо визуальных компонентов.

← →
NiGGa © (2007-03-07 17:17) [5]

Соврал, прошу прощения

> alexey_mas © (07.03.07 16:31)
>
> Прошу помочь с несколькими вопросами по MDI интерфейсу.
> Есть MDIForm форма и несколько MDIChild форм.
> нужно чтобы MDIChild форма запускалась один раз только.
> делаю так:

Задача изначально противоречит идеологии MDI.

← →
Аноним (2007-03-07 20:04) [7]

> Amoeba ©

> Задача изначально противоречит идеологии MDI.

Не обязательно.
Один класс чайлда может и правда быть максимум в одном экземпляре, а другие уже во многих

MDI интерфейс Найти похожие ветки