Delphi - modálne okno bez prerušenia behu aplikácie

Prosím vás, poraďte mi ako otvoriť okno nemodálne, ale vždy navrchu aplikácie. Očo ide? Mám formulár frmPleaseWait, ktorý je určený na zobrazovanie priebehu vykonávania výpočtu, mazania a podobne v aplikácii. Formulár otváram metódou Show a ďalej spracovávam výpočet v aplikácii. Nakoľko je výpočet náročný na čas, tak počas výpočtu po každom kroku volám metódu Application.ProcessMessages. Vďaka tomu sa dá výpočet prerušiť aj v polovici, pretože sa dá stlačiť tlačítko Prerušiť na tomto formulári. Problém ale nastáva, ak kliknem do okna aplikácie, ale mimo tohto formulára. Vtedy sa už naspäť k formuláru frmPleaseWait nedostanem a program ďalej pokračuje vo výpočte. Dalo by sa to riešiť dvoma spôsobmi:

1. "Modálne" okno - aplikácia bude mať okno vždy navrchu, je to myslím parameter SystemModal, alebo niečo také. Tiež by som chcel umožniť pomocou formulára minimalizovať celú aplikáciu. Niečo podobné ako je to v Synchronizácia adresárov v Total Commanderi. Ak počas operácie dám minimalizovať, minimalizuje sa celý Total Commander.

2. Nové okno, aby som sa vedel dostaťk nemu späť pomocou hlavnej lišty. Niečo také je v aplikácii Virtual Dub, kde je počas činnosti programu vytvorené samostatné okno s procesom spracovania. Tu sa to zrejme roibí nastavením iného rodiča pri konštruktori Create. Ja používam Create(Self), čiže rodičom je hlavný formulár aplikácie.

Viete mi poradiť, ako to urobiť jedným alebo druhým spôsobom? Vhodnejší je prvý, ale môže byť aj druhý.

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
funkce SetWindowPos by měla být to pravé. http://msdn2.microsoft.com/en-us/library/ms633545.a spx mia 21.04.2007 09:28	mia	21.04.2007 09:28
Na toto som ešte slabý programátor, aby som volal API funkcie Windows. Vieš poradiť ako to zavolať? msx. 21.04.2007 10:07	msx.	21.04.2007 10:07
Na toto by sa dala pouzit funkcia FindWindow: var hwnd: THandle; ... hwnd:= FindWindow(nil, PChar(w… Intex 21.04.2007 17:21	Intex	21.04.2007 17:21
Já ho chápu, jde mu o to, aby se mu vyhodilo "info" o probíhajícím výpočtu na popředí před stávající… nový mia 21.04.2007 17:53	mia	21.04.2007 17:53
Tak potom riesenim je "AlwaysOnTop"... ak to dobre chapem... a tuto vlastnost moze dat hocijakemu fo… nový Intex 21.04.2007 18:28	Intex	21.04.2007 18:28
Skus ked vytvaras to okno daj mu flag always_on_top. Zavisi ako to okno vytvaras, vid manual k danej… nový MM.. 21.04.2007 18:36	MM..	21.04.2007 18:36
V okně, co má být v aplikaci "furt nahoře" udělej toto: type TForm1 = class (TForm) --- private pro… nový Rce 21.04.2007 23:48	Rce	21.04.2007 23:48
Zajtra to skúsim. Zatiaľ ďakujem a potom označím za vyriešené, ak to pôjde. nový msx. 23.04.2007 00:39	msx.	23.04.2007 00:39
ak to pôjde Kdyby ne, vymyslíme něco jiného :-D. poslední Rce 23.04.2007 00:56	Rce	23.04.2007 00:56

funkce SetWindowPos by měla být to pravé.

http://msdn2.microsoft.com/en-us/library/ms633545.a spx

Na toto som ešte slabý programátor, aby som volal API funkcie Windows. Vieš poradiť ako to zavolať?

Na toto by sa dala pouzit funkcia FindWindow:

var hwnd: THandle;
...
hwnd:= FindWindow(nil, PChar(windowTitle))
if(hwnd <> 0)
begin
  Windows.SetWindowPos(hwnd, udaje ktore potrebujes);
end;

Inak, presne nechapem o co ti ide... ak chces mat okno stale navrchu tak skus zapnut AlwaysOnTop...

edit: windowTitle si dotiahni z okna formulara, pri jeho otvarani...

Já ho chápu, jde mu o to, aby se mu vyhodilo "info" o probíhajícím výpočtu na popředí před stávající form, a pokud klikne do formu a dá mu fokus, aby se mu "info" neschovalo za form.

Tak potom riesenim je "AlwaysOnTop"... ak to dobre chapem... a tuto vlastnost moze dat hocijakemu formu...

Skus ked vytvaras to okno daj mu flag always_on_top. Zavisi ako to okno vytvaras, vid manual k danej komponente delphi ktorou vytvaras dialog, prip. ak pouzivas WinAPI tak msdn.microsoft.com
Ak vytvaras dialog zo sablony (a sablonu si si nakreslil pred prekladom programu) tak to nastav rovno v sablone (.res) prip. naklikaj ak tvoj editor dialogov umoznuje nastavovat vlastnosti okna.

V okně, co má být v aplikaci "furt nahoře" udělej toto:

type TForm1 = class (TForm)
   ---
   private
   procedure CreateParams (var AParams: TCreateParams); override;
   ---
end;
---
---
TForm1.CreateParams (var AParams: TCreateParams);
begin
   inherited CreateParams (AParams);
   AParams.WndParent := Application.MainForm.Handle;
end;
(

Zajtra to skúsim. Zatiaľ ďakujem a potom označím za vyriešené, ak to pôjde.

ak to pôjde

Kdyby ne, vymyslíme něco jiného .

Zpět do poradny Odpovědět na původní otázku Nahoru