rzpagecontrol 页头添加右键弹出菜单

pzr 2010-06-23 05:09:38

如标题：
function TForm1.getrect(Sender:Tobject;index:Integer):Trect;
var
RE:Trect;
i:Integer;
begin
SendMessage(RzPageControl1.Handle, TCM_GETITEMRECT, I, LPARAM(@Re));
result:=Re;
end;

procedure TForm1.RzPageControl1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i:Integer;
R:TRect;
p:TPoint;
begin
if not (Button in [mbRight]) then Exit;
GetCursorPos(p);
for i := 0 to RzPageControl1.PageCount - 1 do
begin
//R :=RzPageControl1.TabRect(i); //当为pagecontrol时可以这么写，rzpagecontrol没有这个属性
R := getRect(rzpagecontrol1,i);
if (R.Left <=X) and (R.Right>=X) and (R.Top <=Y) and (R.Bottom>=Y) then
begin
RzPageControl1.ActivePageIndex := i;
PopupMenu1.Popup(p.X,p.Y);//弹出菜单
break;
end;
end;

end;

procedure TForm1.aa1Click(Sender: TObject);
begin
rzpgcntrl_maindh.ActivePage.Free;
end;
目的在tab上添加一右键功能，实现关闭tab，该功能一直无法实现，望帮助，谢谢！！！

...全文

156 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

yinghuigu 2012-02-27

打赏
举报

procedure TfrmMain.RzPageControl1MouseUp(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var

  i:Integer;

  p:TPoint;

begin

  if not (Button in [mbRight]) then Exit;

  GetCursorPos(p);  

  i := RzPageControl1.TabAtPos(X,Y);

  if (i>=0) then

  begin

      RzPageControl1.ActivePageIndex := i;

      PopupMenu1.Popup(p.X,p.Y);//弹出菜单

  end;

end;