Création dynamique d'un TTaskBar

Version imprimable

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:

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 ? :roll:

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")

Une idée

N'ayant pas le composant TTaskbar sur le poste sur lequel je travaille en ce moment, j'image que la solution peut ressembler à

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TmainForm.ajouteTaskBar;
var 
  taskBtn : TThumbBarButton;
begin
  if assigned(_taskBar1) then exit;
  _taskBar1:=TTaskbar.Create(self);
  TTaskbar.parent := self
  taskBtn : TThumbBarButton.create(TTaskbar) ;
  taskBtn.Action:=actStopScript;
  _taskBar1.TaskBarButtons.Add(taskBtn);
end;

13/04/2015, 23h58
Négrier

Le composant TTaskBar n'a pas de propriété parent

La méthode _taskBar1.TaskBarButtons.Add n'a pas de paramètres, elle renvoie un objet de type TThumbBarButton

J'ai essayé la création : taskBtn : TThumbBarButton.create(Taskbar) ; mais elle provoque également une exception :ptdr:

Une idée

Je me suis basé sur ce code

Code:

1
2
3
4
5
6
7
8
9
10
 
 var thumbbarButton = TaskbarButton.Current.CreateThumbbarButton((uint)(i + 1));
thumbbarButton.Flags = THUMBBUTTONFLAGS.THBF_ENABLED;
thumbbarButton.ImageDataType = ButtonImageDataType.PNG;
StreamResourceInfo resourceInfo = Application.GetResourceStream(new Uri(string.Format("images/{0}.png", i), UriKind.Relative));
using (var br = new BinaryReader(resourceInfo.Stream))
{
thumbbarButton.Image = br.ReadBytes((int)resourceInfo.Stream.Length);
}
taskbarButtons.Add(thumbbarButton);

disponible à l'adresse suivante :
https://github.com/Giorgi/Silverligh...inPage.xaml.cs

Bingo

Bingo ! J'ai trouvé (un peu par hasard) il faut utiliser BeginUpdate..EndUpdate

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TmainForm.ajouteTaskBar;
var taskBtn:TThumbBarButton;
begin
  if assigned(_taskBar1) then exit;
  _taskBar1:=TTaskbar.Create(self);
  if not assigned(_taskBar1) then exit;
  _taskBar1.TaskBarButtons.BEGINUPDATE //INDISPENSABLE
  taskBtn:=_taskBar1.TaskBarButtons.Add; //PLUS D'EXCEPTION !!!
  if assigned(taskBtn) then
  with taskBtn do
  begin
    Action:=actStopScript;
  end;
  _taskBar1.TaskBarButtons.ENDUPDATE//INDISPENSABLE
end;