Commentaire au clic d'un élément d'une listbox

Version imprimable

29/11/2005, 17h20
hijodelanoche

Commentaire au clic d'un élément d'une listbox

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 ^_^

salut

redefinit le onshowhint de ton listbox

exemple

Code:

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

bon, avec mon code ça donne ça :
Code:

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 ...

30/11/2005, 15h51
anapurna

salut

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

Code:

Application.OnShowHint := OnShowHint;

@+ Phil
01/12/2005, 13h12
hijodelanoche

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

Merci d'avance ^_^
01/12/2005, 13h31
Pedro

Citation:

Envoyé par hijodelanoche

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

Oui tu appliques ce que te donne Anapurna ;)
02/12/2005, 10h11
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 ^_^

salut

bon si tu n'as pas trouvé lka solution

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

Code:

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