Discussion :

[hijodelanoche]

bonjour

j'ai une listbox avec des éléments dedans.
je désirerais que au passage de la souris sur un des items, que l item apparaisse en commentaire
j'ai compris qu il fallait utiliser hint et mettre showhint a true, mais comment mettre en hint l item de la ligne ??
merci ^_^

[anapurna]

salut

redefinit le onshowhint de ton listbox

exemple

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
18
 
Procedure TMyFrm.FormCreate ...
begin
  ...
  MyListBox.showint := OnShowHint;
end;
 
procedure TMyFrm.OnShowHint (var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
begin
  with HintInfo do
  begin
    if  (Hintcontrol is TLIstbox) Then
    begin
       Canshow := True;
       HintStr :=  'Test';
    end;
  end;
end;

@+ Phil

[hijodelanoche]

bon, avec mon code ça donne ça :

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.OnShowHint (var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
begin
  with HintInfo do
  begin
    if  (Hintcontrol is TLIstbox) Then
    begin
       Canshow := True;
       HintStr :=  'Test';
    end;
  end;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.ShowHint := OnShowHint;
end;

j ai déclaré la procédure dans le public, mais
la compilation me met un erreur " pas assez de parametres originaux pour ListBox1.ShowHint := OnShowHint;

ce qui est a priori normal vu que onWhowHint demande 3 paramètres ...
peux tu m'aider stp ??
Merci ^_^

ps : a priori je mettrais une string en premier parametres, true en deuxième mais le 3eme je vois pas ...

[anapurna]

salut

Argh j'ai pas fait attention c'est le onshowhint de l'appliction que je redefinie
dans mon cas

Code :

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

Application.OnShowHint := OnShowHint;

@+ Phil

[hijodelanoche]

ok, et pour mon cas alors, quelqu'un a une idée ?? ^_^

Merci d'avance ^_^

[Pedro]

ok, et pour mon cas alors, quelqu'un a une idée ??

Oui tu appliques ce que te donne Anapurna

[hijodelanoche]

ok ça roule ^_^

bon, ça a pas marché au début, mais c'est parce que je déclarais :
procedure TForm1.OnShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
au lieu de
OnShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);

je vais me débrouillé pour le reste, merci beaucoup de votre aide ^_^

[anapurna]

salut

bon si tu n'as pas trouvé lka solution

voila un exemple complet de ce que je ferai dans ton cas

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
18
19
20
21
22
23
procedure TForm1.OnShowHint (var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
var
	Pt1: TPoint;
  Positem : integer;
begin
  with HintInfo do
  begin
    if  (Hintcontrol is TLIstbox) Then
    begin
      if (Hintcontrol as TLIstbox).Name = 'ListBox1' Then
      begin
        Canshow := True;
      	Pt1 := (Hintcontrol as TLIstbox).ScreenToClient(Mouse.CursorPos);
        Positem := Round(Pt1.Y/(Hintcontrol as TLIstbox).ItemHeight);
      	if (Pt1.Y = -1) then
          Exit;
        if Positem > Pred((Hintcontrol as TLIstbox).Items.Count) Then
         Positem := Pred((Hintcontrol as TLIstbox).Items.Count) ;
         HintStr := (Hintcontrol as TLIstbox).Items[Positem]
      end;
    end;
  end;
end;

@+ Phil

PS: merci de mettre le tag RESOLU