如何屏蔽书标右键的弹出菜单？？？(30分)

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #1

if button=mbright then
屏蔽蔽书标右键的弹出菜单

 

K

knmfkr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #2

procedure TForm1.Edit1ContextPopup(Sender: TObject;
MousePos: TPoint; var Handled: Boolean);
begin
Handled:=True;
end;

 

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #3

f button=mbright then
if image1.Picture.Bitmap.Empty then
image1.OnContextPopup;

不行啊？？
我要的是image1没有图像？？那么没有右键弹出菜单??

 

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #4

to knmfkr ：还差那一点一点就行了？？
f button=mbright then
if image1.Picture.Bitmap.Empty then
// image1.OnContextPopup 在这里实现没有弹出菜单

 

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #5

帮我想想办法好吗???
各位英雄!!!

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #6

加入ApplicationEvents控件
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd =form1.handle) then
begin
Handled := True;
if image1.Picture.Bitmap.Empty then
image1.OnContextPopup(Self,Mouse.CursorPos,Handled)；
end;

end;

 

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #7

d7的ApplicationEvents控件
在哪里呢？？？

 

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #8

找到了结分

 

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #9

to: linsb
image1.OnContextPopup(Self,Mouse.CursorPos,Handled)；
这句有点问题？？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #10

你应定义了OnContextPopup事件

 

B

baidie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #11

妳應該
procedure TForm1.Image1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
if image1.picture.bitmap.empty then
handled:=true
else
handled:=false;
end;