Anonymní profil David Čermák – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

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

 

Příspěvky odeslané z IP adresy 89.102.124.–

David Čermák
Delphi › Formulář vždy nahoře,jak na…
31. 10. 2008   #88820

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

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032022 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý