是不是弹出菜单啊!delphi里面有这样的控件。在listview里的popup里面加上弹出菜单就可以了!
解决方案 »
- 这看起来很简单的问题难倒多少高手??? windows.SetParent(form2.Handle, form1.Handle);
- 自定义消息
- 关于TTable.Locate()
- 有没有什么办法可以在Delphi里测定一段程序的执行时间???越精确越好!
- 有关MDI窗口的创建问题!
- 请帮一个菜鸟看一下这个简单的DELPHI出错信息!!!谢谢你们了。
- 请教高手 ListBox 怎么可以加横向滚动条? 谢谢!
- 关于nmftp控件。
- 大调查,看谁编写"共享软件"赚的外块多.----------多多益善!!!!!!!!!!!!!!
- 关于SQL Server7的事务日志问题...
- 怎么让整个窗体一打开就充满这个屏幕呢?
- 用控件的方法add(addchild)等中用到pchar,string等变量,控件free时是否会释放掉该变量?
listview1.popupmenu:=popupmenu1;
按下时弹出,这个可能是弹出菜单机制的问题
procedure TForm4.RzListView2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
rzlistview2.popupmenu:=popupmenu1;
end;
按下时弹出,这个可能是弹出菜单机制的问题
procedure TForm4.RzListView2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
rzlistview2.popupmenu:=popupmenu1;
end;
Shift: TShiftState; X, Y: Integer);
begin
popupmenu1.popup(x,y);
end;
var Handled: Boolean);
begin
Handled := true;
PopupMenu1.Popup(MousePos.x,MousePos.y);
end;
var Handled: Boolean);
begin
Handled := true;
PopupMenu1.Popup(MousePos.x,MousePos.y);
end;