Delphi 简单的操作Memo1剪切 复制 粘贴 撤销 全选 清空

本文整理自网络，侵删。

 
procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
    StatusBar1.Panels[0].Text := OpenDialog1.FileName;
  end;
end;

procedure TForm1.MenuItem10Click(Sender: TObject);
begin
  Memo1.CutToClipboard;
end;

procedure TForm1.MenuItem11Click(Sender: TObject);
begin
  Memo1.CopyToClipboard;
end;

procedure TForm1.MenuItem12Click(Sender: TObject);
begin
  Memo1.PasteFromClipboard;
end;

procedure TForm1.MenuItem13Click(Sender: TObject);
begin
  Memo1.ClearSelection;
end;

procedure TForm1.MenuItem16Click(Sender: TObject);
begin
  Memo1.SelectAll;
end;

procedure TForm1.MenuItem18Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    Memo1.Font := FontDialog1.Font;
end;

procedure TForm1.MenuItem20Click(Sender: TObject);
begin
  if StatusBar1.Visible = False then
  begin
    StatusBar1.Visible := True;
    MenuItem20.Checked := True;
  end
  else
  begin
    StatusBar1.Visible := False;
    MenuItem20.Checked := False;
  end;
end;

procedure TForm1.MenuItem23Click(Sender: TObject);
begin
  Memo1.Text := Memo1.Text + FormatDateTime('hh.nn', Time) + ' ' + DateToStr(Date);
end;

procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
    StatusBar1.Panels[0].Text := SaveDialog1.FileName;
  end;
end;


procedure TForm1.MenuItem7Click(Sender: TObject);
begin
  Memo1.Text := '';
end;

procedure TForm1.MenuItem9Click(Sender: TObject);
begin
  Memo1.Undo;
end;

end.
 

相关阅读 >>

Delphi 释放res资源文件

Delphi 比较俩组ip地址是否一样

Delphi 跨平台的，在fmx中读取icon文件的每一帧到bitmap

Delphi ipnumberipv4

Delphi idhttp post request

Delphi vclunzip组件解压缩文件用法

Delphi 个人所得税计算函数

Delphi filestream

Delphi 如何从url提取文件名？

Delphi toscilloscope 仿windows任务管理器cpu使用记录组件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 简单的操作Memo1剪切 复制 粘贴 撤销 全选 清空