Contexte : Delphi XE7, Windows seven

Exception lors de la création d'une TTaskbar à l'exécution

L'instanciation du composant se passe bien mais ça se passe mal lors de l'ajout de "TaskBarButtons".

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TmainForm.ajouteTaskBar;
var taskBtn:TThumbBarButton;
begin
  if assigned(_taskBar1) then exit;
  _taskBar1:=TTaskbar.Create(self);
  if not assigned(_taskBar1) then exit;
  taskBtn:=_taskBar1.TaskBarButtons.Add; //EXCEPTION !!!
  if assigned(taskBtn) then
  with taskBtn do
  begin
    Action:=actStopScript;
  end;
end;
Une nécessaire initialisation m'aurait-elle échappée ?

N.B. 1) je n'ai pas de problème lorsque la TTaskbar est créée à la conception
2) pas d'info sur le sujet sur le net (en revanche de nombreux exemples pour l'utilisation en mode "conception")