新手 询问一下关于Delphi 控件 SaveDialog 控件的使用问题

Question

我编写一个记事本程序 然后我使用的SaveDialog 控件，为什么我保存Mome里面的文件的时候，我不管点击保存按钮 还是点击取消按钮 都会把内容保存出来，如何判断我点的到底是保存还是取消呢，代码我不会写 希望高手告诉下菜鸟，以下是我的代码：procedure TForm1.N3Click(Sender: TObject);
begin
  if  bj.Lines.Text ='' then
   MessageBox(Handle,'保存内容不能为空','Warning:',MB_OK or MB_ICONWARNING )
     else   begin    dlgSave1.Execute;
    bj.Lines.SaveToFile(dlgSave1.FileName );   end;
end;

Answer 1

dlgSave1.Execute;
 bj.Lines.SaveToFile(dlgSave1.FileName );
 -->
if  dlgSave1.Execute then
     bj.Lines.SaveToFile(dlgSave1.FileName );

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  Memo1.Text ='' then
    MessageBox(Handle,'保存内容不能为空','Warning:',MB_OK or MB_ICONWARNING )
  else begin
    if MessageBox(0,'同意保存','提示',MB_OKCANCEL )=idOK then
      if SaveDialog1.Execute then
        Memo1.Lines.SaveToFile(SaveDialog1.FileName );
  end;
end;上述代码，应该解决问题。

Answer 3

if dlgSave1.Execute then
    bj.Lines.SaveToFile(dlgSave1.FileName );

Answer 4

楼上几位大虾已说明。要先判断dlgSave1是否执行，点保存就是说明执行。

Answer 5

关键的技术就是判断是否要执行保存
if SaveDialog1.Execute then

Answer 6

我一直都是这样写的if SaveDialog1.Execute then
Begin
//这里写处理代码，最后用showmessage等语句弹出提示对话框。
End

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
begin
if  Memo1.Text ='' then    
begin
  MessageBox(Handle,'保存内容不能为空','Warning:',MB_OK or MB_ICONWARNING );
  exit;
end;
if SaveDialog1.Execute then        
  if SaveDialog1.FileName='' then //没有输入文件名
    Exit;  
if MessageBox(0,'同意保存','提示',MB_OKCANCEL )=idOK then
  try
    Memo1.Lines.SaveToFile(SaveDialog1.FileName );  
    MessageBox(Handle,'保存成功','Warning:',MB_OK or MB_ICONWARNING );
  except
    MessageBox(Handle,'保存失败','Warning:',MB_OK or MB_ICONWARNING );
  end;end;