Discussion :

[philobedo]

Bonjour,

quelqu'un sait s'il est possible de paramétrer la durée d'apparition du texte associé à un Label, La proprité Hint en fait ?

Merci d'avance,

Phil.

[dwinkel]

Ce doit être possible en définissant toi-même un objet Hint et remplacer le Hint par défaut.

Exemple:

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
// objet qui hérite de la classe THintWindow
type
  TMonHint = class(THintWindow)
  protected
    // méthode qui peut être utilisée à la place du constructeur
    procedure CreateParams(Var Params: TCreateParams);Override;
  end;
 
// implémentation de la méthode
procedure TMonHint.CreateParams(Var Params: TCreateParams);
begin
  Inherited CreateParams(Params);
end;
 
// utilisation du nouvel objet dans TForm1 à la place du Hint standard
procedure TForm1.FormCreate(Sender: TObject);
begin
  HintWindowClass := TMonHint;
end;

[philobedo]

Euh ...

t sur qu'y pas plus simple ?!!

en fait je suis tout nouveau sur Delphi ... mais bon je vais quand même essayer.

Merci

@+ Phil.

[rbag]

ou plus simplement de se servir de la propriété Application.HintHidePause :

Spécifie l'intervalle de temps attendu avant de cacher le conseil quand la souris reste au-dessus du contrôle ou de l'élément de menu.

property HintHidePause: Integer;

Description

La propriété HintHidePause permet de spécifier un temps d'attente, exprimé en millisecondes, différent du temps par défaut de 2500 ms ou 2 secondes 1/2 qui est spécifié dans le constructeur. Le conseil du contrôle ou de l'élément de menu est spécifié dans la propriété Hint.