Anonymní profil Bimbo – Programujte.com

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

Ahoj.
Prosim o radu. Nainportoval jsem si ActiveX prvek, umistil na form a funguje. Umistim druhy a funguje taky. Prvek ma popup menu a to chci prepsat na jine. Prepisu u prvku metodu PopupMenu a vse funuje. To udelam i s druhym. Funguje.


ALE! Pokud kliknu a drzim pravym tlacidlem na prvnim, prejedu na druhy a pustim, vyvol se PUVODI popupmenu a ne moje nastavene. Jinak vse funguje. Jak toto osetrit?

Diky Bimbo