在listbox上移动光标会出现类似HINT的浮动提示(查询)条(50分)

B

bingLi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-12

• #1

 

L

LGXing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-12

• #2

动态改变ＬｉｓｔＢｏｘ的Ｈｉｎｔ！

 

W

wangxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-12

• #3

ListBox1->ShowHint=true;
ListBox1->hint=xxxxxx

 

H

honghs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-12

• #4

是想动态显示hint吗？
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Index:Integer;
begin
Index:=ListBox1.ItemAtPos(Point(X,y),True);
if Index<>-1 then
listbox1.hint :=listbox1.Items[Index];
end;

 

G

GGCAT

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-12

• #5

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
A:Integer;
begin
A:=ListBox1.ItematPos(Point(X,y),True);
IF A>=0 then
Begin
ListBox1.Hint:=ListBox1.Items[A];
Application.ActivateHint(Point(X,Y)); //important
End;
end;

好象在哪里见过这个问题。

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-12

• #6

将Hint关闭再激活可以。
不过有好像还有更好的方法，一时想不起了。

 

B

bingLi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-13

• #7

多人接受答案了。