Anonymní profil David Čermák – Programujte.com

Bohuzel me to nefunguje..... formulář na nahore, ale kdyz stisknu windows tlacitko "Zobrazit plochu" tak zmizi ... dokazal by me nekdo prosim poradit, jak udelat aby byl formular jakoby prilepen na plochu a zustal zobrazen i kdyz stisknu "Zobrazit Plochu". Vsem mockrat dekuji za snahu a pomoc. Diky

Bimbo napsal:
To David Čermák :

Mr. Google odpovídá 5. výsledkem na:
http://www.bsdg.org/SWAG/DELPHI/0397.PAS.html

procedure TYourForm.FormCreate(Sender: TObject);
begin
SetWindowPos(YourForm.Handle,
HWND_TOPMOST,
0, 0, 0, 0,
SWP_NOMOVE OR
SWP_NOACTIVATE OR
SWP_NOSIZE);
end;

{However, you need to keep reminding Windows to restore your window to the
top of the z-order ahead of any other topmost windows by adding the
following to the form's OnPaint event. Otherwise, other programs that
modify the z-order can paint over yours.}

procedure TYourForm.FormPaint(Sender: TObject);
begin
SetZOrder(True);
end;


Funguje :) Nizmene pozor na setZOrder - mel jem sitovou aplikaci a nezobrazovalo se ani hlaseni firewallu :)
Snad pomohlo. Bimbo