Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

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

 
velial   (2003-11-14 14:40) [0]

Как можно проверить открыта ли форма MDIChild?
т.е. если одна уже запущена, то показать ее и создавать новую?
причем желательно универсальную, т.к. в проекте очень много форм

что-то типа GetWndHandel, и как узнать Хендел формы


 
PVitaliy ©   (2003-11-14 14:50) [1]

Перебрать в цикле все формы, которые созданы в приложении

for j:=0 to Screen.FormCount-1 do begin // Iterate
if Screen.Forms[j] is TUourFormClass then
with TUourFormClass(Screen.Forms[j]) do begin
if {еще какието критерии отбора формы} then begin
Show; //показать форму, сделать ее активной
.....
end;
end;
end; // for


 
Silver Alex ©   (2003-11-14 14:59) [2]


> PVitaliy ©

привет, работаете по старой схеме ? :))

можно и так, без всяких там наследований

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;


 
PVitaliy ©   (2003-11-14 15:08) [3]


> Silver Alex ©
> привет, работаете по старой схеме ? :))

Тебе привет. Да нет я уже полгода как запросы не писал и с базами не работал, так выдал, по старой памяти.


 
velial   (2003-11-14 15:27) [4]

спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
14-79126
Ketmar
2003-10-31 14:01
2003.11.24
официально обявляю об оживлении


1-78957
Miwa
2003-11-12 05:51
2003.11.24
TOpenDialog.InitialDir


4-79230
Эдуард
2003-09-27 15:46
2003.11.24
Монтировка/демонтировка subst-дисков (связанных с папками).


6-79096
Yol
2003-09-27 12:54
2003.11.24
Не могу с 98 Виндовса зайти на Комп


14-79184
E1
2003-10-29 16:25
2003.11.24
МЫ БУДЕМ КРУЧЕ ВСЕХ!!!! Но через 10 лет... ;))