Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.017 c