如:第1行红,第二行绿..等.
解决方案 »
- 现在每天都要写垃圾代码 晕哦
- 做文件搜索时有没有比较高速的算法?
- 用API实现简单网络编程的小问题:如得到用户名....
- 小问题,请各位大侠帮帮忙。TrackBar控件中怎么控制最后鼠标拖拽格?
- 百思不得其解??
- lance09(lance.&Scott)请进来接分,谢谢了.
- stringgrid问题!!!!!!!
- richtextbox的字体颜色怎么改?
- 将varchar值'+g_kjnf+'转换为数据类型为smallint的列时发生语法错误
- 为何老是 not in Edit or Insert mode?
- 我用dephil 连接excel打印一操作票(表格),分别用了控件,和动态创建的方法,结果速度奇慢?不知时何原因,请赐教!
- VC中的int**类型对应Delphi中的什么呀?一定给分
begin
RichEdit1.SelStart := 0;
RichEdit1.SelLength := Length(RichEdit1.Lines[0]);
RichEdit1.SelAttributes.Color := clRed;
end;—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
我是要它背景变色...不是字体..有没有办法?或者别的控件有吗?就是选中这一行时,背景变色..
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, RichEdit, RxRichEd;type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
RxRichEdit1: TRxRichEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var Fmt :TCharFormat2;
begin
FillChar(Fmt, SizeOf(TCharFormat2), 0);
Fmt.cbSize := SizeOf(TCharFormat2);
Fmt.dwMask := CFM_BACKCOLOR;
Fmt.crBackColor := ColorToRGB(clRed);
SendMessage(RichEdit1.Handle, EM_SETCHARFORMAT, SCF_ALL, LPARAM(@Fmt));
end;