各位前輩，小妹有個問題不知如何處理，請各位前輩指點一下。
小妹在某個Form上有個PageControl，這個PageControl有好幾個Page，
在某些情況，如查詢模式，可以由User隨意移到任何Page。可是在某些情況，如
AddMode/EditMode，我只允許User從主Page移到某些Page，至於某些特殊的Page
，則不允許User切進去。
這要如何作？想好久了。謝謝。

在PageControl-->OnChange的時候去判斷是否為編輯模式
是則將ActivePageIndex指向原來的頁面

有你寫的原始碼可以參考嘛!?
這樣比較不用瞎子摸象

------
======================
昏睡~
不昏睡~
不由昏睡~

編輯記錄

TabSheet1.TabVisible:= False  即可
===================引 用 limary 文 章===================
各位前輩，小妹有個問題不知如何處理，請各位前輩指點一下。
小妹在某個Form上有個PageControl，這個PageControl有好幾個Page，
在某些情況，如查詢模式，可以由User隨意移到任何Page。可是在某些情況，如
AddMode/EditMode，我只允許User從主Page移到某些Page，至於某些特殊的Page
，則不允許User切進去。
這要如何作？想好久了。謝謝。

我跟ko兄一般有過類似經驗。你可以
1.Form Private設變數，如SourcePage :TTabSheet;
// 當然也可以用其他方法標記住原頁，不過有點麻煩
2.PageControl1.OnChanging時記住此翻頁前的原頁位置，如
SourcePage := PageControl1.ActivePage;
及查核User現在所處的Mode，如不可換頁，則取消換頁命令。
即AllowChange:=False;
3.在PageControl1.OnChange下處理命令，如：
begin
if Mode1 or Mode2 then
begin
if PageControl1.ActivePage=BadPage then
begin
if SourcePage<>PageControl1.ActivePage then
begin
ShowMsg('.....' ) ;
PageControl1.ActivePage := SourcePage ;
end ;
end ;
end ;
end ;

------
Kevin

編輯記錄

當然，最神的，還是P.D.兄的解法。乾淨爽快。
===================引 用 P.D. 文 章===================
TabSheet1.TabVisible:= False 即可
===================引 用 P.D. 文 章===================

------
Kevin

問題解決了，謝謝各位前輩的幫忙。
將TabVisible設為false，果然也是好方法。謝謝版主。
感謝。