listbox选项鼠标经过变色 用哪个选项值可以实现,就是像COMBOBOX,,鼠标经过选 项时,,选项字体颜色要变的....可以自定义颜色和字体吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);var APoint: TPoint; I:Integer;begin APoint.X:=X; APoint.Y:=Y; I:=ListBox1.ItemAtPos(APoint,True); if I>=0 then ListBox1.ItemIndex:=I;end; 谁会用Delphi7编写web服务器应用程序?重金酬谢 [高手进]关于TAdoQuery控件中字段的中文,绝对挑战您的智力 DBChart 如何设置X轴和Y轴 我有一个数字,想转换成字符串,补足8位,不足在前边加0怎么做? 进销存数据库基础表的设计? 以后的路还是得走下去 UDP这么写哪错了??? 请问有没有一个像TOOLBAR控件,请进来再说? 这里有完全版的DELPHI6下载! midas发布的详细过程 关于dll间字符串的传递 delphi 如何打开加密的数据库
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
APoint: TPoint;
I:Integer;
begin
APoint.X:=X;
APoint.Y:=Y;
I:=ListBox1.ItemAtPos(APoint,True);
if I>=0 then
ListBox1.ItemIndex:=I;
end;