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;
Y: Integer);
var
Index:Integer;
begin
Index:=ListBox1.ItemAtPos(Point(X,y),True);
if Index<>-1 then
listbox1.hint :=listbox1.Items[Index];
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货