选中时该项变为蓝色,现在我需要用鼠标去选另外一个listview中的项目来进行搭配,并且希望现在的选中项颜色保持,如何实现?万分感谢!
解决方案 »
- 求Advanced.Export.Component中文资料(教程)
- 我要动态获得鼠标所在屏幕的坐标,但遇到了一点问题
- 我用Delphi编程来读取OutLook的Email时,会出现OutLook的提示窗口,如何屏蔽掉这个窗口
- simpledataset连接MYSQL,读写正常,退出时提示错误?
- 无事,散分随便问一个问题~~~~~~~~~~
- 谁有U ARE U 2000 指纹识别仪的OCX控件或DLL调用库?
- 怎么把整数转换成十六进制字符串啊?
- 两个图片叠加的窗体怎么做?
- 关于stringgrid的一个小问题
- 将record型的值按顺序存入array中,怎么用指针实现。
- 请帮俺把C#的代码转换成Delphi的,这是一段对Webbrowser 的Window.open 的处理
- Grid++Report 的注册码有吗,给我个谢谢!!!我这里怎么fastreport装不起来!
......
procedure wndproc(var message:Tmessage);override;....procedure TXXXXXX.wndproc(var message: Tmessage);
begin
if message.msg = WM_KillFocus then exit;
inherited;
end;
不仅仅是失焦消息,其它你不需要的都可以按你的要求屏蔽的,但你一定要了解系统对应的是哪个消息。
if item.Selected then
begin
Sender.Canvas.Brush.Color := clBlack;
Sender.Canvas.Font.Color := clYellow;
end;
......