Delphi记事本编程代码

新建文件:form1.memo1.lines.Clear; //清空MEMO1
打开文件:
form1.OpenDialog1.execute;
form1.Memo1.Lines.LoadFromFile(form1.OpenDialog1.filename);
保存文件:
form1.saveDialog1.execute;
form1.Memo1.Lines.savetoFile(form1.saveDialog1.filename);
退出:close; //关闭
编辑操作:
form1.Memo1.cuttoclipboard; //剪切
form1.Memo1.CopyToClipboard; //复制
form1.Memo1.PasteFromClipboard;// 粘贴
form1.Memo1.clearselection; //删除选中内容
字体相关设置:
memo1.Font.style:=memo1.Font.Style +[fsbold];//加粗
memo1.Font.style:=memo1.Font.Style +[fsitalic]; //加斜
memo1.Font.style:=memo1.Font.Style +[fsunderline]; //加下划线
fontdialog1.Execute;
memo1.Font:=fontdialog1.Font; //字体选择代码
memo1.font.color:=clred; //设置字体颜色为红色

发表评论

电子邮件地址不会被公开。 必填项已用*标注