Selecionar Item ListBox com o Mouse
15/12/2005
0
movendo o mouse, tipo, selecionar o item em que o cursor do
mouse estiver em cima??
Outro, tem como exibir em forma de hint, o texto do item selecionado, caso o texto seja maior que a largura da caixa do ListBox
abraço
Eniorm
Posts
15/12/2005
Ipc$
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var pt:TPoint; begin pt.X := X; pt.Y := Y; ListBox1.ItemIndex := ListBox1.ItemAtPos(pt, true); end;
Para o hint, acho que vc precisará criar um THintWindow
15/12/2005
Eniorm
só não entendi a linha acima? oq é o THindWindow............?
abraço
15/12/2005
Edilcimar
hint := listbox.itemindex ou
hint := listbox.itematpos?
15/12/2005
Adriano Santos
só não entendi a linha acima? oq é o THindWindow............?
abraço[/quote:380186fbcc]
Eu entendi, tem um exemplo que o editor do portal passou estes dias. Estou Tentando adaptar aqui, mas tah meio feio ainda...porém funciona.
[url=https://www.devmedia.com.br/visualizacomponente.aspx?comp=948&site=3]Ativar Hint[/url]
15/12/2005
Martins
só não entendi a linha acima? oq é o THindWindow............?
abraço[/quote:143f9e1a2a]
Eu entendi, tem um exemplo que o editor do portal passou estes dias. Estou Tentando adaptar aqui, mas tah meio feio ainda...porém funciona.
[url=https://www.devmedia.com.br/visualizacomponente.aspx?comp=948&site=3]Ativar Hint[/url][/quote:143f9e1a2a]
Tb olhei essa dica passada acho q pelo Luciano Pimenta
15/12/2005
Ipc$
ListBox1.Hint := ListBox1.Items[ListBox1.ItemIndex]; Application.ActivateHint(pt);
Cheque se ItemIndex >=0, senão dará erro.
15/12/2005
Adriano Santos
só não entendi a linha acima? oq é o THindWindow............?
abraço[/quote:685bdad22a]
Eu entendi, tem um exemplo que o editor do portal passou estes dias. Estou Tentando adaptar aqui, mas tah meio feio ainda...porém funciona.
[url=https://www.devmedia.com.br/visualizacomponente.aspx?comp=948&site=3]Ativar Hint[/url][/quote:685bdad22a]
Tb olhei essa dica passada acho q pelo Luciano Pimenta[/quote:685bdad22a]
É isso msm, foi o Luciano.
15/12/2005
Martins
valew!!
15/12/2005
Adriano Santos
Vixi, falei merda...rsrs...
15/12/2005
Martins
Vixi, falei merda...rsrs...[/quote:39d083a299]
Esquenta não [b:39d083a299]Adriano[/b:39d083a299], afinal tem lá no inicio ´ dica do editor´, então normalz, relaxa.
Abaraços!!!
15/12/2005
Adriano Santos
[url=http://delphi.about.com/cs/adptips2001/a/bltip0201_4.htm]Delphi About [/url]
15/12/2005
Eniorm
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pt : TPoint;
begin
pt.X := X;
pt.Y := Y;
ListBox1.ItemIndex := ListBox1.ItemAtPos(pt, true);
if (ListBox1.ItemIndex >= 0) then begin
ListBox1.Cursor := crHandPoint;
ListBox1.Hint := ListBox1.Items[ListBox1.ItemIndex];
Application.ActivateHint(pt);
end else begin
ListBox1.Cursor := crDefault;
ListBox1.Hint := ´´;
end;
end;o resultado ficou bastante legal.... vejam!
agora o estranho é que eu esperava exibir as hints de apenas os itens cujo texto é maior que a largura do ListBox, não sendo necessário exibir a hint para itens que possui o texto que ja esteja exibindo completamente no ListBox... mas de qualquer forma eu gostei do resultado... muito obrigado a todos que ajudaram com posts e sugestões.....
que o codigo acima sirva caso vcs precisem...
abraço
15/12/2005
Adriano Santos
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pt : TPoint;
begin
pt.X := X;
pt.Y := Y;
ListBox1.ItemIndex := ListBox1.ItemAtPos(pt, true);
if (ListBox1.ItemIndex >= 0) then begin
ListBox1.Cursor := crHandPoint;
ListBox1.Hint := ListBox1.Items[ListBox1.ItemIndex];
Application.ActivateHint(pt);
end else begin
ListBox1.Cursor := crDefault;
ListBox1.Hint := ´´;
end;
end;o resultado ficou bastante legal.... vejam!
agora o estranho é que eu esperava exibir as hints de apenas os itens cujo texto é maior que a largura do ListBox, não sendo necessário exibir a hint para itens que possui o texto que ja esteja exibindo completamente no ListBox... mas de qualquer forma eu gostei do resultado... muito obrigado a todos que ajudaram com posts e sugestões.....
que o codigo acima sirva caso vcs precisem...
abraço[/quote:49ef254e3f]
É isso ai Enio, fico feliz de ter ajudado e uma coisa importante é ter sempre o feedback de quem foi ajudado...assim isso serve para demais usuários.
abraço
16/12/2005
Adriano Santos
Clique aqui para fazer login e interagir na Comunidade :)
