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 获取本地ip地址源码

Delphi 声明指令 调用左右

Delphi 字符串加单引号

Delphi xe android的所有权限按照分类总结说明

Delphi中限制鼠标的移动区域

Delphi 查看字符串在不同编码(ascii、unicode、utf7、utf8、default、bigendianunicode)下的 hex

Delphi 调整应用程序内存大小

Delphi 加载大文件显示进度条

Delphi编解码js字符串

Delphi 2009 之 tstringbuilder 类[4]: insert 与 remove

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

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