pagecontrol OnPageChanging 事件的問題 一個form中，有pagecontrol元件 及一個groupbox(內含五個button) 一個pagecontrol上面有7個page 當我切換page前 pagecontrol 的 OnPageChanging 事件 會先判斷 完成button 的Enabled是否 為真 若為真，則 跳出一個Messagebox 問使用者 是否先存檔 若回答是 則 page 不跳動 若回答否 則 page 跳動到 選擇的頁次

var VarActivePage:Integer;
begin
  inherited;
  VarActivePage:=pgc_opsvar.ActivePageIndex;      if Btn_OpsVarSave.Enabled=True then
  begin
        messagebox(???)        
  end
  else
  begin
    Btn_OpsVarSave.Enabled:=False;
    Btn_OpsVarEdit.Enabled:=True;
  end;    end;

小弟messagebox的事件 不太會寫，請問各位? 而messagebox 事件 如何跟下列 維持原本page 做串連 維持原本Page 的寫法如下 有誤 嗎? pgc_OpsVar.ActivePageIndex :=VarActivePage ; pgc_OpsVar.ActivePage.SetFocus;

您可運用 OnChanging event 中的 AllowChange 參數來控制是否讓 user 切換 PageControl1 的 ActivePageIndex

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  if Btn_OpsVarSave.Enabled then
  begin
    AllowChange := True; // 允許改變 PageControl1 的 ActivePageIndex
    if MessageBox(Handle, PChar('存檔嗎？'), PChar('存檔對話方塊'), MB_OKCANCEL) = IDOK then
      // ... 做存檔的事
  end
  else
  begin
    AllowChange := False;
    Btn_OpsVarSave.Enabled:=False;
    Btn_OpsVarEdit.Enabled:=True;
  end;
end;

-- 向 KTop 的弟兄們致敬! 發表人 - hagar 於 2004/07/23 11:26:03

感謝大大