讲稿6-BC高级组件应用1.pptVIP

BCB高级组件应用1 ;11.1 TRichEdit组件 ; 【例11-1】 创建一个应用程序项目，在Form1中放一个RichEdit编辑器(位于Win32页上)、一个打开文件对话框、一个保存文件对话框和一个字体设置对话框。再为应用程序加入一个主菜单。进入菜单设计器，为主菜单MainMenu1增加“File”、“Edit”和“Format”三个下拉菜单。“File”下拉菜单包含“New”、“Open”、“Save”、“Print”和“Exit”等五项；“Edit”下拉菜单包含“Cut”、“Copy”和“Paste”三项剪贴板操作；“Format”下拉菜单包含“Font”、“Paragraph Alignment”和“Paragraph FirstIndent”三项。; “Paragraph Alignment”和“Paragraph FirstIndent”两项分别又有一个下一级菜单(在菜单设计器内右击菜单项并选择“Create SubMenu”创建下级菜单)：“Paragraph Alignment”的下级菜单包含“Center”、“Left”和“Right”三项用于设置段落对齐方式，“ParagraphFirstIndent”的下级菜单包含“0 Pixels”、“6 Pixels”、“12 Pixels”等七项，用于设置段落的缩进。 以下是各个菜单项OnClick事件的源代码，它们是按菜单项顺序排列的： ;void__fastcall TForm1::New1Click (TObject *Sender) { RichEdit1-Clear ( ); } //--------------------------------------------------------------------------- void__fastcall TForm1::Open1Click (TObject *Sender) { if (OpenDialog1-Execute ( )) RichEdit1-Lines-LoadFromFile (OpenDialog1-FileName); } //---------------------------------------------------------------------------;void__fastcall TForm1::Save1Click (TObject *Sender) { if (SaveDialog1-Execute ( )) RichEdit1-Lines-SaveToFile (SaveDialog1-FileName); } //--------------------------------------------------------------------------- void__fastcall TForm1::Print1Click (TObject *Sender) { RichEdit1-Print (); //打印RTF文本，参数用于指定一个标题，此处标题为空 } //---------------------------------------------------------------------------;void__fastcall TForm1::Exit1Click (TObject *Sender) { Close ( ); } //--------------------------------------------------------------------------- void__fastcall TForm1::Cut1Click (TObject *Sender) { RichEdit1-CutToClipboard ( ); } //--------------------------------------------------------------------------- void__fastcall TForm1::Paste1Click (TObject *Sender) { RichEdit1-PasteFromClipboard ( ); ;} //--------------------------------------------------------------------------- void__fastcall TForm1::Copy1Click (TObject *Sender) { RichEdit1-CopyToCli