Non Non, tu ne fait queRalala, j'espère ne pas trop avoir casser ton moral
Regarde ce que j'ai traduit, c'est amusant non ?
J'avance à grand pas maintenant, car ça ressemble de plus en plus à ce que je recherche, c'est à dire, agir sur les popup flottants
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 procedure TForm1.Timer1Timer(Sender: TObject); Var monhandle : Integer; style : Dword; begin monhandle:= FindWindow('#32768', Nil); style := GetWindowLong(monhandle, GWL_EXSTYLE); style := SetWindowLong(monhandle, GWL_EXSTYLE, style or WS_EX_LAYERED); SetLayeredWindowAttributes(monhandle, 0, 150, LWA_ALPHA);
Bon, sur cela, je te dit à demain ou à lundi, je part faire un dodo pour le gros boulot demain.
Partager