delphi编辑器功能

1.        打开（opendialog1）
procedure TForm1.Button1Click(Sender:TObject);  //打开文件
begin
  if opendialog1.Execute then
    memo1.Lines.LoadFromFile(opendialog1.FileName) ;
end;
 
2.        保存（savedialog1）
procedure TForm1.Button2Click(Sender:TObject); //保存文件
begin
  if savedialog1.Execute then
  begin
    memo1.Lines.SaveToFile(savedialog1.FileName) ;
    memo1.Clear ;
  end ;
end;
 
3.       退出
procedure TForm1.N5Click(Sender:TObject);  //“退出”菜单命令
begin
 close ;
end;
 
4.        复制
procedure TForm1.Button3Click(Sender:TObject); //复制
begin
  memo1.CopyToClipboard ;
end;
 
5.        剪切
procedure TForm1.Button4Click(Sender:TObject); //剪切
begin
  memo1.CutToClipboard ;
end;
 
6.        粘贴
procedure TForm1.Button5Click(Sender:TObject); //粘贴
begin
  memo1.PasteFromClipboard ;
end;
 
 
7.        设置字体 无色
procedure TForm1.N13Click(Sender:TObject);  //“无色”选项
begin
 N13.Checked := true ;
 memo1.Color := clWindow ;
end;
 
8.        黄色
procedure TForm1.N11Click(Sender:TObject); // “黄色”选项
begin
  N11.Checked := true ;
  memo1.Color := clyellow ;
end;
 
9.        绿色
procedure TForm1.N12Click(Sender: TObject); //“绿色”选项
begin
 N12.checked := true ;
 memo1.Color := clLime ;
end;
 
10.    加粗
procedure TForm1.N15Click(Sender:TObject); //粗体
begin
  N15.Checked :=not N15.Checked ;  //翻转
   if  N15.checked   then
      memo1.Font.Style:= memo1.Font.Style + [fsBold]
  else
      memo1.Font.Style:= memo1.Font.Style - [fsBold];
end;
11.    斜体
procedure TForm1.N16Click(Sender:TObject); //斜体
begin
   N16.Checked :=not N16.Checked ;  //翻转
   if  N16.checked   then
      memo1.Font.Style:= memo1.Font.Style + [fsItalic]
  else
      memo1.Font.Style:= memo1.Font.Style -[fsItalic];
end;
 
 
12.    工具栏 左对齐
procedureTForm1.SpeedButton1Click(Sender: TObject);  //工具栏－左对齐
begin
  memo1.Alignment :=  taLeftJustify   ;
end;
 
13.    工具栏 居中对齐
procedureTForm1.SpeedButton2Click(Sender: TObject);  //工具栏－居中对齐
begin
  memo1.Alignment := taCenter ;
end;
 
14.    工具栏 右对齐
procedureTForm1.SpeedButton3Click(Sender: TObject);  //工具栏－右对齐
begin
 memo1.Alignment :=  taRightJustify   ;
end;