TPageControl的超级难题,很难解决啊!!
日期:2006-12-23 荐:
TPageControl的超级难题,很难解决啊!!TPageControl的某页,让它不能点击,且该页的标题(Caption)变灰,如同button一样。用TapSheet.Enabled := False; 不能达到这种效果 用TPageControl.ActivePage := TapSheetX 也不能达到这种效果应该如何 实现呢??在form的private里放一个变量FLastPageIndex: Integer;在PageControl的Changeing事件里置FLastPageIndex := PageControl.ActivePageIndex;在PageControl的Change事件里begin if PageControl.ActivePageIndex = 3 then PageControl.ActivePageIndex := FLastPageIndex;end;PageControl的OnChanging事件中判断一下是否点击的那页是否可以被激活,如果不能被激活,则:AllowChange:=False;呵呵,我还以为跑出个妹妹呢
标签: