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.
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.065021991729736 seconds