Discussion :

[HASSANAIT]

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

[vanquish]

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.

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;

Pui vient l'implémentation

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;

Autres possibilités :

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;

[HASSANAIT]

J' ai essaye la 1ere solution que vous m avez proposer, ca marcher.
Merci tres bien "vanquish"