Juin 23

Mise en œuvre de la fonction SetOverlayIcon

J’ai ajouté deux TButton sur la fiche et un TImageList.
J’ajoute une icône dans le TImageList.
Les événements OnClick sont codés ainsi :

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TfrmMain.btnDisplayIconClick(Sender: TObject);
var
  iLogo : TIcon;
begin
  iLogo := TIcon.Create;
  try
    // Récupère une icône depuis un TImageList
    imglIcon.GetIcon(0, iLogo);

    if Assigned(tbl3) then
    begin
      // Ajoute l'icône sur celui de la barre des tâches : ne fonctionne que si de grandes icônes sont affichées dans la barre des tâches
      tbl3.SetOverlayIcon(Self.Handle, iLogo.Handle, PChar('Whiler'));

      btnDisplayIcon.Enabled := False;
      btnHideIcon.Enabled    := True;
    end;
  finally
    iLogo.Free;
  end;
end;

 

1
2
3
4
5
6
7
8
9
10
11
procedure TfrmMain.btnHideIconClick(Sender: TObject);
begin
  if Assigned(tbl3) then
  begin
    // Masque l'icône de la tâche
    tbl3.SetOverlayIcon(Self.Handle, 0, nil);

    btnDisplayIcon.Enabled := True;
    btnHideIcon.Enabled    := False;
  end;
end;

 

Icône supplémentaire

Icône supplémentaire

 
Sur la page suivante, nous allons voir comment ajouter des boutons sous une prévisualisation de notre tâche…

Share

Pages : 1 2 3 4 5 6

Lien permanent vers Maximiser l’utilisation de la barre des tâches de Windows 7 avec Delphi Rédigé par Whiler \\ Tags : , , , , ,

Une réponse pour “Maximiser l’utilisation de la barre des tâches de Windows 7 avec Delphi”

Laisser une réponse

(requis)

(requis)

*

Notifiez-moi les commentaires à venir via email. Vous pouvez aussi vous abonner sans commenter.

;) (lol) (y) |-( (hi) 8-) (angel) :s (clap) (bow) (tmi) (:| plus »

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.