procedure TForm1.Button1Click(Sender: TObject);
begin
TrackPopupMenuEx(GetSystemMenu(Handle, False),
TPM_VERTICAL, Mouse.CursorPos.X, Mouse.CursorPos.Y, Handle, nil);
end;
begin
TrackPopupMenuEx(GetSystemMenu(Handle, False),
TPM_VERTICAL, Mouse.CursorPos.X, Mouse.CursorPos.Y, Handle, nil);
end;
解决方案 »
- Delphi2009在vista下启动失败!
- MSSQLSERVER可以存入WORD,EXCEL文档,能不能存入PDF文档,如行,方法是不是一样?
- delphi6、7,卸载后重装,怎么老是说setup could load a dll required for intallation
- 怪异
- 来送分的,UP有分!!!!!!
- 怎样自定义form颜色呢?
- Delphi编的DLL能被VC++调用吗?
- ServerSocket控件的出错处理
- 关于数据库中文字段问题?_高分相送
- 关于商場POS机编程问题
- 为什么FlashCar下载的速度比IE自带的下载快呢
- 对一个beginer来说,学delphi比较好的教材或是好的网站有哪些?
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure WMCOMMAND(var Msg: TWMCOMMAND); message WM_COMMAND;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
TrackPopupMenuEx(GetSystemMenu(Handle, False),
TPM_VERTICAL, Mouse.CursorPos.X, Mouse.CursorPos.Y, Handle, nil);
end;procedure TForm1.WMCOMMAND(var Msg: TWMCOMMAND);
begin
inherited;
Perform(WM_SYSCOMMAND, Msg.ItemID, 0);
end;
TrackPopupMenuEx()//弹出菜单
Mouse//当前鼠标对象
请大家多帮忙!
begin
TrackPopupMenuEx(GetSystemMenu(Application.Handle, False),
// ~~~~~~~~~~~~~~~~~~
TPM_VERTICAL, Mouse.CursorPos.X, Mouse.CursorPos.Y, Handle, nil);
end;