菜鸟的DELPHI第二课做记事本的笔记记录，注释了一下
unit Unit1;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
E1: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
V1: TMenuItem;
N8: TMenuItem;
F1: TMenuItem;
H1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
Memo1: TMemo;
Y1: TMenuItem;
D1: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure V1Click(Sender: TObject);
procedure D1Click(Sender: TObject);
procedure F1Click(Sender: TObject);
procedure Y1Click(Sender: TObject);
procedure Memo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
memo1.Lines.Clear; //清空MEO1里的东西达到新建效果
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
memo1.lines.loadfromfile(OpenDialog1.filename); //这句话意思是打开OpenDialog1控键的名字给MEMO1这个显示控键来判断
end;
procedure TForm1.N4Click(Sender: TObject);
begin
ifSaveDialog1.Execute then
memo1.Lines.SaveToFile(SaveDialog1.FileName); //这句话的意思是，调用 (SaveDialog1控件 来让MEMO这个孔键来 SaveToFile 这个英语应该就是保存的意思
end;
procedure TForm1.N5Click(Sender: TObject);
begin
close; //这个简单 就是关闭的意思
end;
procedure TForm1.N6Click(Sender: TObject);
begin
memo1.copytoclipboard; //这句是复制
end;
procedure TForm1.N7Click(Sender: TObject);
begin
memo1.CutToClipboard //这句是剪切
end;
procedure TForm1.V1Click(Sender: TObject);
begin
memo1.pastefromclipboard;// 这句是粘贴
end;
procedure TForm1.D1Click(Sender: TObject);
begin
Memo1.ClearSelection; // 这句是删除
end;
procedure TForm1.F1Click(Sender: TObject);
begin
if FontDialog1.Execute then
memo1.Font:=FontDialog1.Font; //调用FontDialog1这个控键
end;
procedure TForm1.Y1Click(Sender: TObject);
begin
showmessage('第二课笔记') //这个是弹出对话框做注释用的
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
end;
end.
页:
[1]