如何允许或禁止用户在pagecontrol中输入tab?

时间:2011-12-05 10:05:43

标签: delphi tpagecontrol

我想限制用户(基于特殊条件)在页面控件中打开选项卡。即,用户可以单击选项卡,但不会向他显示。相反,会向他显示一条消息“he don't have the access right to see such tab”。

在什么事件上我应该编写检查代码,以及哪个tab属性(TPageControl组件)允许/阻止用户输入这样的标签?

4 个答案:

答案 0 :(得分:7)

在理想的世界中,您可以从AllowChange事件中将False设置为OnChanging以阻止页面更改。但是,这似乎不可行,因为我无法从OnChanging内找出用户试图选择的页面。

即使查看基础Windows通知似乎也没有什么希望。 TCN_SELCHANGING通知标识了控件,但据我所知,并未对所涉及的页面进行任何说明。

我能想到的最好的方法是使用OnChanging来记录当前的活动页面,然后在OnChange中进行艰苦的工作。如果所选页面已被更改为不需要的内容,则只需将其更改回来。

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  FPreviousPageIndex := PageControl1.ActivePageIndex;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if PageControl1.ActivePageIndex=1 then begin
    PageControl1.ActivePageIndex := FPreviousPageIndex;
    Beep;
  end;
end;

我知道相当混乱,但它有工作的优点!

答案 1 :(得分:2)

OnChanging事件不允许您确定选择哪个选项卡,因为Windows本身不会报告该信息。但是,您可以执行的操作是TPageControl.WindowProc属性的子类,以拦截在处理它们之前发送到TPageControl的消息。使用鼠标消息确定直接单击哪个选项卡(查看TPageControl.IndexOfTabAt()方法),并使用键盘消息检测左/右箭头按下以确定哪个选项卡与活动选项卡相邻(查看{ {1}}方法)。

答案 2 :(得分:1)

使用页面控件的OnChanging事件。

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  if (self.PageControl1.TabIndex= 1)and
     (NotAllowUser = 'SomePerson') then
  begin
    AllowChange:= False;
    ShowMessage('Person not allow for this Tab');
  end;
 end;

好的,PageControle1.TabIndex是activepageindex而不是我想要选择的那个。 如何获得点击的页面。

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
var
  P: TPoint;
  NewTabIndex: Integer;
begin

  P := PageControl1.ScreenToClient(Mouse.CursorPos);
  NewTabIndex := PageControl1.IndexOfTabAt(P.X, P.y);

  if (NewTabIndex= 1) then
  begin
    AllowChange:= false;
    Beep
  end;
end;

新尝试

 TMyPageControl = Class(TPageControl)
 private
   FNewTabSheet: TTabSheet;
   FOnMyChanging: TMyTabChangingEvent;
   procedure SetOnMyChanging(const Value: TMyTabChangingEvent);
   procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;
   procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
 protected
   function CanChange: Boolean; Override;
 public
   property OnMyChanging: TMyTabChangingEvent read FOnMyChanging write SetOnMyChanging;
 End;



 { TMyPageControl }




 function TMyPageControl.CanChange: Boolean;
 begin
   Result := True;
   if Assigned(FOnMyChanging) then FOnMyChanging(Self, FNewTabSheet ,Result);
 end;



 procedure TMyPageControl.CMDialogKey(var Message: TCMDialogKey);
 begin
   if (Focused or Windows.IsChild(Handle, Windows.GetFocus)) and
      (Message.CharCode = VK_TAB) and (GetKeyState(VK_CONTROL) < 0) then
   begin
     FNewTabSheet := FindNextPage(ActivePage, GetKeyState(VK_SHIFT) >= 0,True);
     SelectNextPage(GetKeyState(VK_SHIFT) >= 0);
     Message.Result := 1;
   end else
    inherited;
 end;

 procedure TMyPageControl.CNNotify(var Message: TWMNotify);
 var
   P: TPoint;
   NewTabIndex: Integer;
 begin
     with Message do
     case NMHdr.code of
       TCN_SELCHANGE:
         Change;
       TCN_SELCHANGING:
         begin
           Result := 1;
             P := self.ScreenToClient(Mouse.CursorPos);
            NewTabIndex := self.IndexOfTabAt(P.X, P.y);
            FNewTabSheet:= self.Pages[NewTabIndex];
           if CanChange then Result := 0;
         end;
     end;
 end;

 procedure TMyPageControl.SetOnMyChanging(const Value: TMyTabChangingEvent);
 begin
   FOnMyChanging := Value;
 end;

答案 3 :(得分:0)

有时最好只隐藏不需要的TabSheets:

TabSheetNN.TabVisible:=Somecondition;

而不是试图阻止切换到这些选项卡。 当然,如果OnChanging事件中的Sender将是TabSheet而不是TPageControl会更好。