請問各位。 目前畫面有一個表單(From1)和PageControl(TabSheet1/TabSheet2) 以及Button1。 當我按Button1時，如頁面在TabSheet1時，要處理TabSheet1的物件 如Edit1/ComboBox1的值。 那在Button1內的處理該如何去控制呢。 謝謝。

Hi t0288542,

procedure TForm1.Button2Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
    0 : begin
          Process tabsheet1 .....
        end;
    1 : begin
           Process tabsheet2 .....
        end;
  else
    Another process .....
  end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝 Fishman。 可以，那如果在TabSheet1作一些異動資料庫動作。 如要控制使用者不可以按TabSheet2時。 該如何在TabSheet2為Enable呢。 麻煩您。謝謝。

Hi t0288542,

試試這樣：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Tabsheet2.TabVisible := False;
end;    或是在 PageControl 的 OnChanging 事件判定是否可以 Change
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if ..... then
    AllowChange := True
  else
    AllowChange := False;
end;

發表人 -

------
Fishman

謝謝您。可以嘍。