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 :
Une nécessaire initialisation m'aurait-elle échappée ?
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;
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")
Partager