Текущий архив: 2007.08.26;
Скачать: CL | DM;
Вниз
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. В чем может быть причина?
Страницы: 1 вся ветка
Текущий архив: 2007.08.26;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.043 c
