1.RichEdit控件
Plain Text= true就如同help里面说的，它存档时并没有编码成rtf的格式...
 也就是档案是标准的txt
 但是如果设成false ...他会存成rtf的格式，会加上一些断行或是字型等资料..
 例如
 {\rtf1\ansi\ansicpg950\deff0\deflang1033\deflangfe1028{\fonttbl{\f0\fnil\fcharset136 Tahoma;}}
 \viewkind4\uc1\pard\lang1028\f0\fs16测试
 \par
 \par }

2."另存为"对话框  Savedialog  
  这个的 很多和Opendialog  的属性一样的   不多讲
   需要注意的是  options属性中的 OfOverwritePrompt属性
  这个是用来  当存文件的时候  有相同文件名的时候 显示一个提示框
  为false不提示   true的时候才提示  

3.程序关闭提示
在按下窗口右上角的[X]时，先出现确认对话框
再视选择执行关闭程序或不更动
在主要Form的 OnClose 下
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        if (Application->MessageBox("是否确定要关闭窗口", "提示窗口标题", 1) == 1)
                Action = caFree;
        else
                Action = caNone;
}
 
Action的值
caNone   　　什么动作也不会做
caHide    　　仅隐藏窗口而不会关闭窗口
caFree    　　关闭窗口 并 释放此窗口所使用到的内存
caMinimize 　将窗口最小化   

• 全局相关文章
• 相关文章