Bonjour mes amis,
Je souhaite aficher des boutons pour chaque fiche de mon projet delphi dans la barre des taches,
Comment je peut faire ca??
Merci d'avance
Bonjour mes amis,
Je souhaite aficher des boutons pour chaque fiche de mon projet delphi dans la barre des taches,
Comment je peut faire ca??
Merci d'avance
Il faut surcharger la méthode CreateParams.
Pour cela dans la partie déclarative de la form, entrer (dans la section private de préférence) la déclartion suivante.
Pui vient l'implémentation
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 TMaForm = class( TForm ) private procedure CreateParams( var Params : TCreateParams); override; end;
Autres possibilités :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 procedure TMaForm.CreateParams(var Params: TCreateParams); begin // On commence par appeler l'ascendant inherited CreateParams( Params ); // Là on peut modifier les paramètres mis par defaut - ce sront ces // paramètres qu'utilisera Delphi. // Par exemple (pout ton pb) : Params.ExStyle := Param.ExStyle or WS_EX_APPWINDOW; end;
Show In TaskBar
Params.ExStyle := Param.ExStyle or WS_EX_APPWINDOW;
ajouter éventuellement :
WndParent := GetDesktopWindow;
TopMost
Params.ExStyle := Param.ExStyle or WS_EX_TOPMOST ;
(mais faut être vicieux, Delphi le gère
sans caption (captionless)
Params.Style := Params.style and not WS_CAPTION;
MID Edge
Params.ExStyle := Params.exStyle OR WS_EX_OVERLAPPEDWINDOW;
Transparent
self.Brush.Style := bsClear;
self.BorderStyle := bsNone;
Params.ExStyle := Params.ExStyle OR WS_EX_TRANSPARENT;
J' ai essaye la 1ere solution que vous m avez proposer, ca marcher.
Merci tres bien "vanquish"
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager