Discussion :

[k_boy]

comment maître une fenêtre ONTOP par à port à d'autre denêtre ?

[banban54]

bonjour

à la conception dans l'inspecteur d'objet:
Form1 / FormStyle / fsStayOnTop

par programmation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form1.BringToFront

à+

[Lung]

Sinon, joue avec SetWindowPos en utilisant le paramètre HWND_TOPMOST.

[bhf37]

Juste ça, et c'est vraiment efficace !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
procedure TForm.FormActivate(Sender: TObject);
var SelfWnd: integer;
begin
    SelfWnd := GetActiveWindow;
    SetWindowPos(SelfWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_SHOWWINDOW + SWP_DEFERERASE + SWP_DRAWFRAME);
end;

Attention, avec ça c'est du ONTOP de chez ONTOP et en plus on ne bouge pas la fenêtre et on ne la redimensionne pas... Voilà