 |
|
 |
|
 |
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 œuvre intellectuelle protégée par les droits d'auteur. Copyright ©
2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être
faite de ce site ni de l'ensemble de son contenu : textes, documents, images, etc.
sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à
trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.