[求助]如何对memo字体进行设置？ - 编程论坛

#2

刘香2007-07-14 16:44

在属性中的font中设置，和文本框的设置方法是一样的！

#3

ty22007-07-16 09:32

哦，楼上说的方法我明白了！
但我是想在程序运行期间，对memo的输入内容进行字体设置！应该要用其它控件来设置吧？

#4

边城路人2007-07-16 10:03

添加字体控件，具体你可以查一下

#5

刘香2007-07-16 11:57

不知你是不是这意思：
例如　放一个radiobutton，点击使memo的字体变成楷体，
如果是这样的话，可以设置radiobutton的单击事件　 memo1.Font.Name:='楷体_GB2312';
试一下。

#6

ty22007-07-16 14:19

谢谢楼上的，知道了！

#7

ty22007-07-16 14:20

还有字体的形式，像加粗、倾斜怎么来加啊？

#8

刘香2007-07-17 13:51

memo1.Font.style:=[fsitalic];
倾斜
memo1.Font.style:=[fsunderline];
下划线
memo1.Font.Style := [fsBold];
加粗

#9

ty22007-07-17 16:37

我根据楼上的提示来做了，但是对于一段选中的文字来执行倾斜的操作，再来执行加粗的操作后，我就发现得到的结果并不是倾斜加加粗的效果，而只是加粗的效果！这样怎么办呢？

#10

刘香2007-07-17 20:55

memo1.Font.style:=[fsitalic];
memo1.Font.style:=[fsunderline];
放一块不就行了　呵呵

#11

ty22007-07-18 09:26

放一块啊！指的是memo1.font.style := [fsitalic,fsunderline];形式吗？如何这样写的话，把加粗、斜体、下划线三者的情况都考虑进来，那要写挺长一段的代码了吧！比如说当进行斜体时，要去判断有没有加粗、下划线、加粗和下划线，这样挺麻烦的！有什么好的建议吗？我没想到别的方法了！

#12

ty22007-07-18 15:30

我想了一下可以用memo1.font.style := memo1.font.style+[fsbold];类似的方式来得到理想中的效果！

#13

ty22007-07-18 16:19

还有一个问题：如何把加粗、斜体这些字体形式保存到access数据库中呢？真是搞不明白！

#14

cctv198801082007-07-22 21:12

给你介绍个好点的方法！！
我也是初学者！！不知道是不是你说的意思！！
----------------------------------------------------------------------------------
添加一个按扭！！Button
写如代码事件！！
procedure TForm1.Button1Click(Sender: TObject);
begin
FontDialog1.Execute ;
memo1.Font:=FontDialog1.Font;
end;
这个看是不是你想要的结果！！

#15

solidwater2007-08-10 20:07

回复：（cctv19880108）给你介绍个好点的方法！！ ...

那是radiobutton，一次中能选中一个，改用checkbox吧