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

本文主要是介绍Delphi5实现“书籍介绍”——编辑框组件实例，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

效果图

参考

3.5 编辑型组件

组件

使用快捷键：alt+字符

加粗

procedure TForm1.CheckBox1Click(Sender: TObject);
beginif CheckBox1.Checked thenMemo1.Font.Style:=Memo1.Font.Style+[fsBold]    //文本加粗elseMemo1.Font.Style:=Memo1.Font.Style-[fsBold]
end;

倾斜

procedure TForm1.CheckBox2Click(Sender: TObject);
beginif CheckBox2.Checked thenMemo1.Font.Style:=Memo1.Font.Style+[fsItalic]    //文本倾斜elseMemo1.Font.Style:=Memo1.Font.Style-[fsItalic]
end;

字体样式

将 RichEdit1 控件当前选中文本的字体属性 (SelAttributes) 复制到 font 对象中。这确保了在修改字体属性时，保留了选中文本的原有字体设置。

{将复文本编辑框中选定文本的字体设置成指定字体式样}
procedure TForm1.RadioGroup1Click(Sender: TObject);
varfont:TFont;
beginfont:=TFont.Create;font.Assign(RichEdit1.SelAttributes);if RichEdit1.SelLength>0 thenbegincase RadioGroup1.ItemIndex of0:begin                       //标题font.Style:=font.Style+[fsBold];font.Size:=20;end;1:begin                       //正文font.Size:=12;end;2:begin                       //提示font.Size:=12;font.Style:=font.Style+[fsItalic]+[fsBold];end;3:begin                       //注释font.Size:=10;font.Style:=font.Style+[fsUnderline];end;end;RichEdit1.SelAttributes.Assign(font);end;
end;

每当重新进入RichEdit1，复原RadioGroup1状态

procedure TForm1.RichEdit1Enter(Sender: TObject);
beginRadioGroup1.ItemIndex:=-1;
end;

完整代码

在这。

这篇关于Delphi5实现“书籍介绍”——编辑框组件实例的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---