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

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ť?

Neumím Delphi, bohužel. Programuju ve Visual Basicu a tam se to volá takto:

v modulu:
Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2

Declare Function SetWindowPos Lib "user32" (ByVal h As Long, ByVal hb As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal f As Integer) As Integer

v programu:
retval=SetWindowPos(okno.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

způsobí to, že okno se jménem "okno" bude vždy nad ostatními okny, i když nebude mít focus.

Dobre, možno si s tým nejako poradím, ale ako získam HWND okna?

hWnd se mi nabídne samo, když píšu program. Ve VB je to jedna z vlastností formu,

handle=form1.hwnd

Znovu opakuju, že Delphi je pro mě španělský venkov.

To je v poriadku. VB pracuje priamo s funkciami vo Windows. Borland je trochu iný, ale myslím, že je tam aj jednoduchšie riešenie. Zatiaľ mi to neponáhľa a v najhoršom prípade to znásilním vytvorením panela na hlavnom formulári aplikácie a budem s ním pracovať tak, že v prípade potreby ho zobrazím.

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 .