Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

Создание окна MDI - приложения только один раз   Найти похожие ветки 

← →
Артем К.   (2003-05-12 12:49) [0]

Привет всем!!!

Хочу создать окно в MDI-приложении.
Есть кнопка "Окно".
Нажимаем на эту кнопку создается окно.
Еще раз нажимаем - еще раз создается.
С этим проблем нет.

А как сделать окно по типу справочника в 1С:Предприятии (если кто работал то знает). Там окно создается один раз. Далее когда еще раз нажимаем на создание, то у нас активируется уже созданное окно, а новое не создается.

как это сделать.

---

← →
Dms   (2003-05-12 12:53) [1]

1) FindWindow(...)
2) внутренняя проверка (выставление флагов)
3) кнопка становится недоступной, после нажатия

---

← →
Zacho ©   (2003-05-12 12:54) [2]

Например так:
procedure TfmMain.tbOsClick(Sender: TObject);
var
i:integer;
begin
for i:=0 to MDIChildCount-1 do
begin
if MDIChildren[i].Name="fmSprav" then
begin
MDIChildren[i].BringToFront;
exit;
end;
end;
with TfmSprav.Create(Self) do Show;
end;

---

← →
Артем К.   (2003-05-12 12:56) [3]

Ребята, большое ВАМ человеческое спасибо!!!

---

Страницы: 1 вся ветка

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c