用过DevExpress套件中的dxPageControl控件的朋友请进，小弟急需帮忙！！（100分）(100分)

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-07

• #1

我在dxPageControl上新建一个页dxTabSheet1，请问怎样在dxTabSheet1的页标题上实现单击鼠标
右键弹出Pupop菜单？

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #2

各位大哥，帮帮我吧，求你们了[]

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #3

卷起千堆雪tyn大哥，是这个问题，你看看吧，谢谢！我真高兴[]

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #4

添加一个PopupMenu：

procedure TForm1.dxTabSheet1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
dxTabSheet1.PopupMenu :=PopupMenu1;
end;

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #5

to 卷起千堆雪tyn大哥：
首先，感谢你的帮助！
但是你的回答确实不符合我的要求，我要求用鼠标点击页标题（就是dxTabSheet1的Caption部分），
而不是dxTabSheet1的内容区，另外，我总觉得dxPageControl1的OnMouseDown事件无效，放进什么代码
都不起作用，不知是怎么回事？？

 

L

l_x_yuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-16

• #6

下面程序如何
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
PopupMenu1: TPopupMenu;
adasdf1: TMenuItem;
procedure PageControl1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PageControl1Change(Sender: TObject);
var
cursorpos: Tpoint;
begin
getcursorpos(cursorpos);
PopupMenu1.Popup(cursorpos.X,cursorpos.Y);
end;

end.

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #7

这个问题没有人答对，我决不给分，答对了可以再加

 

X

xaojgu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #8

怎么联系你啊？

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #9

修改源代码吧！

另外，我总觉得dxPageControl1的OnMouseDown事件无效，放进什么代码
都不起作用，不知是怎么回事？？

要 MOUSE 左右键一起按下去才响应。

 

H

hpretty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #10

procedure TForm1.PageControl1OnMouseDown(Sender: TObject);
var
rect :Trect;
cur: Tpoint;
begin
GetCursorPos(cur);
GetWindowRect(YourControl.handle,rect);
rect.height := yourtabsheetheight;
rect.width := yourtabsheetwidth;
if (判断该点是否在这个矩形中) then
PopupMenu1.Popup(cur.X,cur.Y);
end;

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #11

哇！靠！可算有人说话了，唉！真不容易呀！
to xaojgu:
HD_Copy@163.com
to zhihuali:
>>要 MOUSE 左右键一起按下去才响应。
啊？？？？？？？？！！！！！！！（眼镜调在地上了）
to hpretty:
先别说能否实现我说的功能，看下面：
>>另外，我总觉得dxPageControl1的OnMouseDown事件无效，放进什么代码
>>都不起作用，不知是怎么回事？？

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #12

to:HD_Copy
<<<要 MOUSE 左右键一起按下去才响应。>>>
不信你试一下。

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #13

王寒松大侠，我已经有你的E_mail了，我的是HD_Copy@163.com，我一会就要下网了，拜托了！

 

王

王寒松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #14

dxpagecontrol 中的 dxtabsheet 是一个 TWinControl 类. 这个类的caption属性实际上
被画在了 dxpagecontrol 类的 dxpagecontrolbutton 类上. 因为 DxPageControlbutton
类是由tobject 继承下来的。 而不是通常的button(通常的button由tWincontrol继承下来)
所以修改源码还是比较麻烦的

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #15

to 王寒松大侠：
我知道不那么容易，所以才问你这样等级的高手啊！上午我下网了，刚才才看到你的话，
承蒙你多关照，但是不好意思，我们还是E_mail联系吧！

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #16

HD-copy叫我来看看，可是我这个真的不知道...
预祝你早日成功！

 

Z

zhaohai9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #17

大侠都来了，我夜来听可。

 

A

aimingoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #18

怎么了？这么久还没有解决？我还没有装过这套控件呢。

我明天要写BoundCheck的测试报告，此后，我可以装上这套控
件给看看，不一定有结果的。

今晚有事。 so....

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #19

啊呀，原来是aimingoo!
cheers!好久不见！

 

A

aimingoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #20

cheers.

哈哈，我也是被HD-Copy叫来的。
哈哈，连王寒松也被他叫来了，你看我还好意思不来么？哈哈哈~~~~~```

对了，我时间去我的主页看看：
http://aiming.ynxx.com/