IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

Dimension d'une StringGrid.Cells au survol de la souris ?


Sujet :

Langage Delphi

  1. #1
    Membre régulier

    Homme Profil pro
    Direction financière et formateur en gestion et contrôle de gestion
    Inscrit en
    Mai 2003
    Messages
    185
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Direction financière et formateur en gestion et contrôle de gestion
    Secteur : Conseil

    Informations forums :
    Inscription : Mai 2003
    Messages : 185
    Points : 119
    Points
    119
    Par défaut Dimension d'une StringGrid.Cells au survol de la souris ?
    Bonjour à tous,
    Y a t-il moyen d'avoir les dimensions d'une cellule d'un StringGrid lorsqu'on la survole avec la souris (OnMouveMove) ?
    Je sais avoir la position de la souris au survol de la cellule, mais les dimensions ...
    Merci pour les tuyaux!
    Delphi 10.4.1 - Lazarus
    Utilisation de la VCL

  2. #2
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 037
    Points : 40 942
    Points
    40 942
    Billets dans le blog
    62
    Par défaut
    Bonjour,

    au débotté, je dirais qu'il faut utiliser CellRect

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    var 
       ACellRect : TRect;
       c,r : Integer;
    begin
       with TStringGrid(Sender) do
       begin
         // obtenir la cellule
          MouseToCell(X,Y,C,R);
        // obtenir le rectangle
         ACellRect:=CellRect(Col,Row);
         LabelTaille.Caption:=Format('Largeur %d Hauteur %d' ,[ACellRect.width, ACellRect.height]); // non testé
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  3. #3
    Membre régulier

    Homme Profil pro
    Direction financière et formateur en gestion et contrôle de gestion
    Inscrit en
    Mai 2003
    Messages
    185
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Direction financière et formateur en gestion et contrôle de gestion
    Secteur : Conseil

    Informations forums :
    Inscription : Mai 2003
    Messages : 185
    Points : 119
    Points
    119
    Par défaut
    Impeccable SergioMaster,
    Simple et efficace, je n'avais pas pensé au CellRect
    Merci pour la réponse, c'est résolu!
    Delphi 10.4.1 - Lazarus
    Utilisation de la VCL

  4. #4
    Futur Membre du Club
    Femme Profil pro
    mieux avec l'informatique
    Inscrit en
    Juin 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : mieux avec l'informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2019
    Messages : 5
    Points : 8
    Points
    8
    Par défaut
    Merci beaucoup SergioMaster, Ça m'a beaucoup aidé !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [LeafLet] Changement de style d'une couche GeoJson au survol de la souris
    Par Marc31 dans le forum Bibliothèques & Frameworks
    Réponses: 11
    Dernier message: 11/12/2015, 11h53
  2. Réponses: 11
    Dernier message: 10/11/2011, 13h31
  3. [Toutes versions] Afficher dans controltiptext d'une ListBox le texte survolé par la souris
    Par ESVBA dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 23/08/2010, 21h13
  4. [AC-2003] développer une liste déroulante au survol avec la souris
    Par raphael_g dans le forum IHM
    Réponses: 18
    Dernier message: 29/04/2009, 23h22
  5. Sauver une StringGrid dans un fichier
    Par Rodrigue dans le forum C++Builder
    Réponses: 2
    Dernier message: 10/12/2003, 14h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo