PageControl，如何在点击鼠标右键时也可以切换TabSheet页面？就如同在TabSheet页上部点左键那样？ ( 积分: 20 )

Y

ynduanlian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-15

• #1

比如说一个PageControl上有两个Tabsheet，TabSheet1和TabSheet2，当前活动TabSheet为TabSheet2，当我用鼠标点击"TabSheet1”的标题时，活动TabSheet就是TabSheet1，可是如果点的是鼠标右键，就没有什么反应。
如何实现点鼠标右键实现和左键一样的效果？

 

Y

ynduanlian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-15

• #2

比如说一个PageControl上有两个Tabsheet，TabSheet1和TabSheet2，当前活动TabSheet为TabSheet2，当我用鼠标点击"TabSheet1”的标题时，活动TabSheet就是TabSheet1，可是如果点的是鼠标右键，就没有什么反应。
如何实现点鼠标右键实现和左键一样的效果？

 

Y

ynduanlian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-15

• #3

我想让它支持弹出菜单操作，比如说点右键“关闭”一个TabSheet，但我首先要先让他变成当前活动TabSheet，我才好操作啊。

 

F

FlashDance

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-15

• #4

发送一个消息

 

Y

ynduanlian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-15

• #5

我用perform(wm_lbuttondown,0,0);也不行

 

S

suninrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-15

• #6

procedure TForm1.PageControl1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
begin
mouse_event(MOUSEEVENTF_leftDOWN,0,0,0,0);
application.ProcessMessages ;
mouse_event(MOUSEEVENTF_leftUP,0,0,0,0);
end;
end;

 

Y

ynduanlian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-15

• #7

要的就是楼上的效果。

 

Y

ynduanlian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-19

• #8

多人接受答案了。