Discussion :

[TomErra]

Bonjour,
je cherche à changer le curseur (en crHourGlass) sur toute la Form et ses composants visuels pendant un traitement. Or la propriété Cursor n'est opérationnelle que sur le composant qui a déclenché l'évènement (un TButton). Je n'ai pas vu de propriété directe. Je pourrais évidemment modifier la propriété Cursor de tous les comportements visuels de la Form. Mais ce n'est pas trop transposable. J'en suis là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject); 
var
  bIsControl: boolean;
  aClass : TClass;
  i: integer;
begin
  For i:=1 to ComponentCount-1 do 
    begin
      bIsControl:=False;
      aClass:=TComponent(Components[i]).ClassParent;
      while (aClass<>nil) and (bIsControl=False) do 
         begin
           if aClass.ClassType=TControl then bIsControl:=True;
           aClass:=aClass.ClassParent;
         end;
      if bIsControl then TControl(Components[i]).Cursor:=crHourGlass;
    end;   
  TControl(Self).Cursor:=crHourGlass;
end;

En supposant que ce code soit une solution correcte, je me demande où on peut trouver de la documentation sur l'arborescence des composants fournis dans Lazarus : TControl semble être celui de plus bas niveau disposant d'une propriété Cursor. Est-ce que cela signifie que tous les composants visuels héritent de TControl de manière plus ou moins éloignée (d'où la boucle while) ? D'autant que le [F1] de mon lazarus n'aboutit pas. Merci. Tom

[DOLPat®]

Bonjour,

Il y a bien plus simple. (si j'ai bien compris la question)
Il suffit d'utiliser l'objet Screen:
Screen.Cursor:=crHourGlass;

[TomErra]

Merci Patrick. En effet. C'est beaucoup plus simple : adopté donc.
Cependant quelque soit la méthode employée, je remarque quelque chose de curieux : tous les éléments de la Form se mettent bien en crHourGlass quand on les survole. Mais quand le curseur crHourGlass passe sur les scrollbars d'une stringgrid, d'un treeview ou d'un memo, le temps du survol des scroolbars, le curseur se transforme en crDefault. Alors que sur un TscroolBar isolé, tout fonctionne normalement. Mon OS est Windows 7 et ma version de Lazarus 0.9.31. Dommage pour l'effet visuel. Je suppose que l'on ne peut rien y faire ? Merci pour l'aide. Tom

[DOLPat®]

... Mais quand le curseur crHourGlass passe sur les scrollbars d'une stringgrid, d'un treeview ou d'un memo, le temps du survol des scroolbars, le curseur se transforme en crDefault.
... Je suppose que l'on ne peut rien y faire ? Merci pour l'aide. Tom

Bonsoir,

Sans doute un bug qu'il faudrait signaler sur Lazarus Bug Tracker...

Pour la StringGrid, une solution est de la désactiver pendant que le curseur est à crHourGlass.

Juste après le Screen.Cursor:=crHourGlass, tu mets:
MaStringGrid.Enabled:=False;

Puis lorsque tu rétablis le curseur avec Screen.Cursor:=crDefault, tu mets:
MaStringGrid.Enabled:=True;

Pas très joli, mais cela évite le défaut...