Maximiser l’utilisation de la barre des tâches de Windows 7 avec Delphi

Juin 23

Maximiser l’utilisation de la barre des tâches de Windows 7 avec Delphi

Delphi

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;