Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];
Внизкак запаретить повторное открытие MDIChild-формы? Найти похожие ветки
← →
di2 (2003-11-17 14:30) [0]как запаретить повторное открытие MDIChild-формы?
← →
Radionov Alexey (2003-11-17 14:32) [1]Посмотреть не открыта ли она уже.
← →
Е-Моё имя (2003-11-17 14:32) [2]if ... then
---
nil
← →
di2 (2003-11-17 14:36) [3]вот я и спрашиваю что правильнее всего в IF написать?
enabled?
← →
Семен Сорокин (2003-11-17 14:37) [4]MDIChildCount, MDIChildren,
Screen.FormCount, Screen.Forms
BringToFront
+ F1
← →
Danilka (2003-11-17 14:40) [5][3] di2 (17.11.03 14:36)
иф визибле=фальше, тогда показать. :)
← →
Silver Alex (2003-11-17 14:41) [6]кстати, этот вопрос бывает через день
function IsFormFoundEx(AFormClass :TFormClass) : boolean;
var
i:integer;
begin
Result:=False;
for i:=0 to Screen.FormCount - 1 do
if (Screen.Forms[i] is AFormClass) then begin
(Screen.Forms[i] as TForm).BringToFront;
Result:=True;
break;
end;
if not Result then
AFormClass.Create(Application);
end;
← →
Danilka (2003-11-17 14:42) [7]а он спрашивает не про повторное создание, а про повторное открытие. :))
← →
di2 (2003-11-17 14:53) [8]> Silver Alex © (17.11.03 14:41) [6]
большое спасибо! :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c