delphi用savedialog1控件的一个问题，怎么做，谢谢

窗体上有两个控件，memo1,button1,我点button1里，让文件保存保存memo里的内容，代码如下：
begin
       form1.SaveDialog1.Filter :='纯文本文件(*.txt)|*.txt';
       form1.SaveDialog1.Title :='*.txt';
    if form1.SaveDialog1.Execute =true then
    begin
       memo1.Lines.SaveToFile(form1.SaveDialog1.FileName );
    end;
    application.MessageBox('文件保存成功!','提示!',64);
end;

我现在想做这个么一个功能：当点button时，savedialog1对话框弹出来了，不是有“确定”和"取消"两个按扭么，当点确定时就弹出"application.MessageBox('文件保存成功!','提示!',64);",点取消就不弹出来了，怎么做呢，
谢谢

答案：把application.MessageBox('文件保存成功!','提示!',64);
改到memo1.Lines.SaveToFile(form1.SaveDialog1.FileName );
后面，也就是SaveDialog1.Execute =true 时才保存并给出提示，如果点的取消，刚跳过IF里的语句，所以不会提示保存成功。
begin
       form1.SaveDialog1.Filter :='纯文本文件(*.txt)|*.txt';
       form1.SaveDialog1.Title :='*.txt';
    if form1.SaveDialog1.Execute then
    begin
       memo1.Lines.SaveToFile(form1.SaveDialog1.FileName );
       application.MessageBox('文件保存成功!','提示!',64);
    end;
    end;

其他：if SaveDialog1.Execute then
begin
       memo1.Lines.SaveToFile(form1.SaveDialog1.FileName );
      application.MessageBox('文件保存成功!','提示!',64);   //放在begin..end中就可以了.
end; http://u.youku.com/user_show/uid_%e6%9f%93%e8%89%b2%e7%9a%84%e9%9d%92%e6%98%a5 改到memo1.Lines.SaveToFile(form1.SaveDialog1.FileName );
后面，也就是SaveDialog1.Execute =true 时才保存并给出提示，如果点的取消，刚跳过IF里的语句，所以不会提示保存成功。
begin
       form1.SaveDialog1.Filter :='纯文本文件(*.txt)|*.txt';
       form1.SaveDialog1.Title :='*.txt';
    if form1.SaveDialog1.Execute then
    begin
       memo1.Lines.SaveToFile(form1.SaveDialog1.FileName );
       application.MessageBox('文件保存成功!','提示!',64); 

上一个：delphi try except end 用法问题
下一个：delphi做登陆界面，有个问题，第一次点确定不行，第二次才会成功，跪求高手指点