FORM TOP MOST (CHANGE LORS DU RUNTIME)
japee
Modérateur Dernière intervention
15 mai 2019
- - Dernière réponse :
cs_intik
Membre Dernière intervention
12 septembre 2007
- 12 sept. 2007 à 00:53
- Messages postés
- 1800
- Date d'inscription
- vendredi 27 décembre 2002
- Statut
- Messages postés
- 36
- Date d'inscription
- dimanche 6 juillet 2003
- Statut
most on top =/= Topmost
TopMost = le plus au-dessus
most on top = (ne veux pas dire grand chose en fait)
ouai, pas de blem. (en fait j'avais PAS mis de zip car c'est petit et un copier coller me semblais plus simple. mais pourquoi pas les deux!)
@Foxi:
c'est juste. j'avais jamais fait gaffe.
comme d'ab, des commentaires intéressants. :)
correction dans 5min ....
A+
je chipotte hein ...
et quand tu as un code court qui mets en oeuvre un simple tout petit bout de code, fait plutot un snip sur codyx :)
bon la prochaine fois, je me rappelais:
- le zip de toute façon.
- plutôt un snip qu'une source en cas de doute.
A+
Voila le code a rajouter dans chaque form...
___________________________
private
{ Déclarations privées }
protected
procedure CreateParams(var Params: TCreateParams); override;
public
{ Déclarations publiques }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
______________________________