我的学习生涯（Delphi篇） - 13

来源：互联网发布：男模项海知乎编辑：程序博客网时间：2024/04/16 21:30

我们上一篇博文（我的学习生涯（Delphi篇） - 12）已经交待了怎么使用Delphi的向导制作自己的ocx组件。

本篇我们来添加一个简单的TMemo组件，这个在Delphi的“Standard”组件板上。

-------------------------------------------------------------------------------------------------美丽分割线---------------------------

年代：2006

文件：MY0812.7z

添加的单元设计效果如下：

修改过的“关于”对话框

单元文件：

Umemo1.pas

unit Umemo1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  Tfrm_memo1 = class(TForm)    Memo1: TMemo;    Label2: TLabel;    Label1: TLabel;    brn_readtxt: TButton;    edt_path: TEdit;    btn_save: TButton;    procedure brn_readtxtClick(Sender: TObject);    procedure btn_saveClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  frm_memo1: Tfrm_memo1;  procedure ShowMemoXtxtform;  implementation{$R *.dfm}procedure Tfrm_memo1.brn_readtxtClick(Sender: TObject);begin  Memo1.Lines.LoadFromFile(edt_path.Text);end;procedure ShowMemoXtxtform;begin  with Tfrm_memo1.Create(nil) do    try      ShowModal;    finally      Free;    end;end;procedure Tfrm_memo1.btn_saveClick(Sender: TObject);begin  Memo1.Lines.SaveToFile(edt_path.Text);end;end.