文本编辑器-菜单和工具栏.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 21 行

1.新建一个文件夹
2.新建一个程序(File-->New-->Application)，并保存(Save All)到该文件夹
3.添加一个Memo控件(先在控件栏找到Memo，并点击，然后在窗体(Form1)上点一下),
添加一个按钮(Button),把它的标题(Caption属性)改为“保存”，添加事件(双击按钮)，
并添加代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('我的文件.txt');
end;
再添加一个按钮(Button),把它的标题(Caption属性)改为“打开”，添加事件(双击按钮)，
procedure TForm1.Button2Click(Sender: TObject);
begin
  memo1.Lines.LoadFromFile('我的文件.txt');
end;
添加主菜单(MainMenu)控件，双击它，添加菜单项，
给子菜单"保存"添加事件(只要点击该菜单)，并添加代码(同Button1),
给子菜单"打开"添加事件(只要点击该菜单)，并添加代码(同Button2)

添加“工具栏”(ToolBar)控件(在控件栏的第三页"Win32"),并添加"工具栏"按钮(鼠标右击
-->New Button),并添加事件，并添加代码(同Button1)。