请问诸位，savedialog 的“打开”“取消”按钮被按下后分别会触发什么消息？

Question

if SaveDiaglog1.Execute then
begin
  ShowMessage('OK');
end
else
begin
  ShowMessage('not save file');
end;

Answer 1

//給個例子給你
procedure TForm1.BtnSaveClick(Sender: TObject);
var
  sFileName: string;
begin
  SaveDlg.Filter := 'Text File (*.txt)|*.TXT|';
  SaveDlg.Filter := SaveDlg.Filter + 'Word Doc (*.doc)|*.DOC|';  if  not SaveDlg.Execute then Exit;//取消
  sFileName := SaveDlg.FileName ;   //確定  case SaveDlg.FilterIndex of
    1: begin
          sFileName := changefileext(SaveDlg.FileName, '.TXT');
          if fileexists(sFileName) then
          begin
            if frmnotebook.showmsg2('此文檔已經存在,是否覆蓋?') <> IDYES then Exit;
          end;
          prcSaveToTxt(sFileName);
       end;    2: begin
          sFileName := changefileext(SaveDlg.FileName, '.DOC');
          if fileexists(sFileName) then
          begin
            if frmnotebook.showmsg2('此文檔已經存在,是否覆蓋?') <> IDYES then Exit;
          end;
          prcSaveToDOC(sFileName);
       end;
  end;
end;