Discussion :

[ghan77]

Salut!voilà j'ai un petit souci!j'aimerais pouvoir dans un StringGrid Que lorsque l'on passe le pointeur de la souris sur une cellulle qu'une petite fenêtre jaune ou autre couleur s'affiche avec le contenu de la cellulle(en imaginant que le contenu est tellement gros que l'on ne peut pas le voir sans passer la souris dessus.genre la petite fenêtre quand on laisse le pointeur sur l'icone copier et qu'il s'affiche "Pour copier".

Voilà!encore merci!

[Zatoobux]

Salut

voici un exemple qui affiche le contenu de la cellule en hint :

procedure TForm.MonStringGridMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);
var
aCol, aRow: integer;
begin
MonStringGrid.MouseToCell(X, Y, aCol, aRow);
hint := MonStringGrid.Cells[aCol,ix_Row_Legend];
if hint <> '' then
Application.ActivateHint(Mouse.CursorPos);
end;

@+

[ghan77]

J'ai modifié le code et ca marche pour un show message mais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ActivateHint(Mouse.CursorPos);

ne marche pas apparemetn vu qu'aucune fenêtre n'apparait.

Voilà la modification de tout mon code car si l'on met la souris en dehors des cellulle il plante car il considère que arow et acol sont inférieur à 0!

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
procedure TForm1.SGMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);
var
aCol, aRow: integer;
begin
SG.MouseToCell(X, Y, aCol, aRow);
if ((acol>0) or (acol=0)) and (arow>0) then
  begin
  hint := SG.Cells[aCol,arow];
    if hint <> '' then
    begin
    showmessage(hint);
    Application.ActivateHint(Mouse.CursorPos);
    end;
  end;
end;

Merci de pouvoir m'aider!

[Zatoobux]

Pour que le Application.ActivateHint(Mouse.CursorPos) fonctionne tu dois avoir un hint <> '' et showHint = true.



@+

PS : bien sur j'ai allegé le code... mais il faut verifier la validité des colonnes...

[ghan77]

Voilà tout le code bon modifié :

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
procedure TForm1.SGMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);
var
aCol, aRow: integer;
begin
SG.MouseToCell(X, Y, aCol, aRow);
if ((acol>0) or (acol=0)) and (arow>0) then
  begin
  hint := SG.Cells[aCol,arow];
    if hint <> '' then
    begin
    showHint:=true;
    Application.ActivateHint(Mouse.CursorPos);
    end
    else
    showHint:=false;
  end;
end;

encore merci!!!

[Frank]

ghan77, merci de mettre le tag