Faire une forme de "toujours visible"

Faire une forme de "toujours visible"

Faire une forme de "toujours visible" : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire un formulaire de toujours rester visible au-dessus des autres formes
creer un formulaire 'toujours visible'
Pour faire une forme toujours visible au-dessus des autres formes appartenant a la meme application ainsi que d'autres applications, nous pouvons changer la propriete FormStyle a fsStayOnTop. Plus tard, nous pouvons revenir a la normale par la mise en FormStyle a fsNormal. Toutefois, la modification de la propriete FormStyle au moment de l'execution n'est pas recommande. Au lieu de cela, nous devrions utiliser la fonction Windows API SetWindowPos, passant HWND_TOPMOST comme deuxieme parametre pour activer l'effet:
procedure TForm1.Button1Click(Sender: TObject)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp SetWindowPos(Poignee, HWND_TOPMOST, 0, 0, 0, 0,
& ! & ! & ! & ! & ! & nbsp SWP_NOMOVE SWP_NOSIZE)
& nbsp & nbsp fin
Pour desactiver cet effet, nous appelons SetWindowPos de nouveau, cette fois en passant, il WND_NOTOPMOST comme deuxieme parametre:
procedure TForm1.Button2Click(Sender: TObject)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp SetWindowPos(Poignee, WND_NOTOPMOST, 0, 0, 0, 0,
& ! & ! & ! & ! & ! & nbsp SWP_NOMOVE SWP_NOSIZE)
& nbsp & nbsp fin