谁知道如何清空Windows的剪切板？还有Richedit问题 ( 积分: 50 )

幼

幼虫2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-27

• #1

1、如何清空Windows的剪切板？<br><br>2、如何把一个字符串加载到richedit中，其中的某几个词分别加上不同的字体、颜色？<br><br>不难吧。<br>在线等。

 

幼

幼虫2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-27

• #2

1、如何清空Windows的剪切板？<br><br>2、如何把一个字符串加载到richedit中，其中的某几个词分别加上不同的字体、颜色？<br><br>不难吧。<br>在线等。

 

凝

凝铁衣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-27

• #3

1、在uses中加入Clipbrd，然后用下面的代码<br> &nbsp;ClipBoard.Clear;

 

幼

幼虫2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-27

• #4

谢谢 凝铁衣 朋友，<br>请您再看看第二个问题，就是想：<br><br>str := '欢迎来到大富翁论坛';<br>richedit1.lines.add := str;//但是需要实现在richedit1中显示为欢迎[宋黑体36号]来到大富翁论坛[楷体红色28号]<br>要在代码中实现。

 

W

wzwcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-27

• #5

richedit1.SelStart:=1;<br>richedit1.SelLength:=8;<br>richedit1.SelAttributes.Color:=rgb(0,0,0);<br>richedit1.SelAttributes.Name:='黑体';<br>richedit1.SelAttributes.size:=36;<br><br>richedit1.SelStart:=9;<br>richedit1.SelLength:=10;<br>richedit1.SelAttributes.Color:=rgb(255,0,0);<br>richedit1.SelAttributes.Name:='楷体;<br>richedit1.SelAttributes.size:=28;

 

幼

幼虫2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-27

• #6

感谢wzwcn<br><br>对了，如果不通过Memo或Richedit等控件中转，<br>直接把str := '欢迎来到大富翁论坛';添加到<br>TXT / RTF文件中，怎么写代码？

 

W

wzwcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-27

• #7

var txtfile:TextFile;<br>begin<br> &nbsp;assignfile(txtfile,'E:/me.txt');//<br> &nbsp;rewrite(txtfile);//创建文件<br> &nbsp;writeln(txtfile,'欢迎来到大富翁论坛'); <br> &nbsp;closefile(txtfile);<br>end;

 

幼

幼虫2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #8

谢谢二位，这几天我的机器闹病毒，上不来，急死我了！<br>开始我还以为是论坛出毛病了，直后悔没把我以前的帖子<br>保存起来。哈哈！虚惊一场。

 

幼

幼虫2004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #9

多人接受答案了。