系统右键问题

[xiaoxiaoxuesheng]

请问如何屏蔽系统右键？我用了一个TOpenDialog控键，但我不想在弹出的对话框里点右键时弹出删除等菜单，请问该如何处理？

[jishiping]

在 TOpenDialog 的事件 OnFolderChange 里，改写 窗口的消息处理函数。下面是代码：

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDialog1->Execute();
}
//---------------------------------------------------------------------------
static FARPROC OldWinProc = NULL;
LRESULT CALLBACK NewWinProc(HWND hWnd,
UINT uMsg, WPARAM wParam, LPARAM lParam)
{
if (uMsg==WM_CONTEXTMENU) return 1;

return CallWindowProc(OldWinProc, hWnd,
uMsg, wParam, lParam);
}

void __fastcall TForm1::OpenDialog1FolderChange(TObject *Sender)
{
HWND hWnd;

if (OldWinProc == NULL) {
hWnd = ::GetParent(OpenDialog1->
Handle);
hWnd = GetDlgItem(GetDlgItem(hWnd,
0x461), 0x01);
OldWinProc = (FARPROC)SetWindowLong(
hWnd, GWL_WNDPROC, (long)NewWinProc);
}
}
//---------------------------------------------------------------------------

[jishiping]

在 TOpenDialog 的事件 OnFolderChange 里，改写 窗口的消息处理函数。下面是代码：

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDialog1->Execute();
}
//---------------------------------------------------------------------------
static FARPROC OldWinProc = NULL;
LRESULT CALLBACK NewWinProc(HWND hWnd,
UINT uMsg, WPARAM wParam, LPARAM lParam)
{
if (uMsg==WM_CONTEXTMENU) return 1;

return CallWindowProc(OldWinProc, hWnd,
uMsg, wParam, lParam);
}

void __fastcall TForm1::OpenDialog1FolderChange(TObject *Sender)
{
HWND hWnd;

if (OldWinProc == NULL) {
hWnd = ::GetParent(OpenDialog1->
Handle);
hWnd = GetDlgItem(GetDlgItem(hWnd,
0x461), 0x01);
OldWinProc = (FARPROC)SetWindowLong(
hWnd, GWL_WNDPROC, (long)NewWinProc);
}
}
//---------------------------------------------------------------------------

[jishiping]

有一点给忘了，需要在 TOpenDialog 的事件 OnShow 中，将 OldWinProc 重新置为 NULL。

void __fastcall TForm1::OpenDialog1Show(TObject *Sender)
{
OldWinProc = NULL;
}