MDI интерфейс

← →
dimaL (2007-08-02 10:39) [0]

Как предотвратить повторное открытие дочерней формы(Если форма уже открыта, активировать ее).

← →
Игорь Шевченко © (2007-08-02 10:46) [1]

1.

if not Assigned(ChildForm) then
ChildForm := TChildForm.Create(Application);
ChildForm.Show;

...
TChildForm.OnDestroy(Sender: TObject);
begin
ChildForm := nil;
end;

2.
var I: Integer;
begin
for I:=0 to MDIChildCount do
if MDIChildren[I] is TChildForm then
begin
MDIChildren[I].Show;
Exit;
end;
with TChildForm.Create(Application) do
Show;

Выбирай

← →
dimaL (2007-08-03 05:18) [2]

> Игорь Шевченко ©

А как быть с активацией окна:
if not Assigned(ChildForm) then begin ChildForm := TChildForm.Create(Application); ChildForm.Show; end else ChildForm.Active:=true;Не работает!

← →
dimaL (2007-08-03 05:53) [3]

С активацией разобрался. Возник такой вопрос: на дочерней форме находися кнопка с обработчиком: Close;. Иногда закрывается нормально, иногда с ошибкой: Abstract error или Access violation. В чем может быть причина?

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