Delphi5实现“书籍介绍”——编辑框组件实例

最新推荐文章于 2025-05-16 20:22:04 发布

c4fx

最新推荐文章于 2025-05-16 20:22:04 发布

阅读量341

点赞数 7

分类专栏： Delphi5 文章标签： Delphi 开发语言

本文链接：https://blog.youkuaiyun.com/weixin_52116519/article/details/130057195

版权

效果图

在这里插入图片描述

参考

3.5 编辑型组件

组件

在这里插入图片描述
使用快捷键：alt+字符

加粗

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    Memo1.Font.Style:=Memo1.Font.Style+[fsBold]    //文本加粗
  else
    Memo1.Font.Style:=Memo1.Font.Style-[fsBold]
end;

倾斜

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if CheckBox2.Checked then
    Memo1.Font.Style:=Memo1.Font.Style+[fsItalic]    //文本倾斜
  else
    Memo1.Fo