Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
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.
ZIP : Téléchargez le zip APERÇUS :

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<0Then 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 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'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -