如題 1.我想取得按下存檔後的OnClick事件控制權,指向自訂的存檔用函式. 2.又用MessageDlg來攔截存檔按鍵發出的id,但是如何取得存檔按鍵發出的id. 煩請解答,tnanx

1.

begin
  if SaveDialog1.Execute then
    // exec your procedure here
end;

2.

var
  iReturn: integer;
begin
  iReturn := MessageDlg('TEST Message', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
  case iReturn of
    mrYes: ShowMessage('按下 Yes 鍵');
    mrNo: ShowMessage('按下 No 鍵');
    mrCancel: ShowMessage('按下 Cancel 鍵');
  end;
end;

其中的 mbYes, mbNo, mbCancel 為 TMsgDlgBtn, 如下: type TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mnNoToAll, mbYesToAll, mbHelp); 而 mrYes, mrNo, mrCancel 為回傳值, 所有的值如下: mrNone mrAbort mrYes mrOk mrRetry mrNo mrCancel mrIgnore mrAll --- 歡迎光臨 KTop 研究院