 |
|
 |
|
 |
35 - HINT DIFFÉRENT PAR CELLULE D'UN TSTRINGGRID
|
|
|
|
PRÉSENTATION :
Méthode pour associer une bulle d'aide différente par cellule d'un TStringGrid.
NOTES :
Pour créer une bulle d'aide par cellule il suffit de mettre le code suivant dans l'évènement OnNouseMove du TStringGrid.
CODE :
Procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
Var C, R : Longint;
Chaine: String;
Begin
// Il faut obtenir la cellule pointée par la souris
StringGrid1.MouseToCell(X, Y, C, R);
If (c<0)Or(r<0) Then Exit;
// Création d'une aide en fonction de la cellule
// Ici c'est simplement le numéro de le cellule, mais ce n'est qu'un exemple
Chaine:='Aide sur la cellule ['+IntToStr(C)+','+IntToStr(R)+']';
// Si l'aide est différente, il faut l'afficher de nouveau
If Chaine<>StringGrid1.Hint
Then Begin
StringGrid1.Hint := Chaine;
Application.ActivateHint(Mouse.CursorPos);
End;
End;
|
| |
 |
|
 |
Les sources présentées sur cette page sont libres de droits,
et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation
constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©
2003 Bruno Guérangé. Aucune reproduction,
même partielle, ne peut être faite de ce site et de l'ensemble de son contenu :
textes, documents, images, etc sans l'autorisation expresse de l'auteur.
Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E
de dommages et intérêts.
Cette page est déposée à la
SACD.
|
