TListView 点击右键时某一行被选中,如何取消右键选中功能,我的右键用于快捷菜单了 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus;type TForm1 = class(TForm) ListView1: TListView; PopupMenu1: TPopupMenu; aa1: TMenuItem; bb1: TMenuItem; procedure PopupMenu1Popup(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.PopupMenu1Popup(Sender: TObject);begin ListView1.ItemIndex:=-1;end;end. 这段代码为什么关不了机? delphi如何修改系統時間 一个很有意思的小测试。 有一段代码兄弟们帮忙看看哈~~小弟多谢了~!~!~PP 怎么使dataset的一个field保存和显示的数据不同 小问题,在线等... 求控件! 关于TDateTimePicker控件的显示问题, 各位大哥,有谁编过8031的内核啊,能和小弟交流一下吗,急啊!!!!!!! 分布式系统中,怎样用delphi2007中dbx4控件组实现 巢状数据表 Master/Detail的应用系统 在vista下成功安装/使用delphi6,散分 点击messagebox的确定后激活它的子窗体也关了
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus;type
TForm1 = class(TForm)
ListView1: TListView;
PopupMenu1: TPopupMenu;
aa1: TMenuItem;
bb1: TMenuItem;
procedure PopupMenu1Popup(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
ListView1.ItemIndex:=-1;
end;end.