如何让TEdit支持不同的颜色显示? 强贴,100分!TEdit目前只能显示单种颜色的字体,如何对TEdit进行改造,可以支持不同字体和颜色?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 基本上是改造不了的, 因为这是Windows的通用控件要不你可以自己从一个TCustomControl继承下来写一个。要不用RichEdit,来实现 TCustomControl继承要怎么写啊,老大帮忙一下吧 还有一种方法就是用GetDC的方法,再用一个画布,不过自己要做很多事情 procedure TForm1.Button1Click(Sender: TObject);var tmpCanvas: TCanvas;begin tmpCanvas := TCanvas.Create; tmpCanvas.Handle := GetDC(Edit1.Handle); tmpCanvas.Font.Color := clRed; tmpCanvas.TextOut(0, 0, '我'); tmpCanvas.Font.Color := clGreen; tmpCanvas.TextOut(10, 0, '是'); tmpCanvas.Free;end; duanhai(段海):这也太假了吧,太难控制了 我先前就说过了,控制起来的确是蛮难的,而且当窗体刷新的时候,你得重画一次,否则就没有了我想说的是,这样做也是可以达到一种效果,呵呵对于字符的位置,楼主可以用画的GetTextHeight方法来得到宽度也有相应的方法如果楼主想写一个好一点的,那跟linzhengqun(风。爱的翔舞)说的一样,还不如从TCustomControl继承一个下来 但其实并不简单,不是三两行代码可以搞定的。所以建议楼主用RichEdit吧,也可以做成和Edit一样,只能输入一行数据的。 C++代码转换为Delphi时字符串前的 L 如何处理? 关于DBGirdEh中的问题 如何截取声音信号? delphi 返回 sqlserver 2000的两位小数浮点数变为多位,如何解决显示问题? 一个非常菜鸟的问题,希望各位大侠不要见笑,指教指教。 我是个初学者,想知道我先要学好哪些问题才能做好这样一个程序: MM,男同志请进, 怎样从大文本档中(700 MB)读出有用的数据??? 关于IdTelnet的问题,急!在线等 Delphi的高手过来看看:菜单合并问题 工作郁闷 大家看看这段代码错在哪里?
要不你可以自己从一个TCustomControl继承下来写一个。
要不用RichEdit,来实现
var
tmpCanvas: TCanvas;
begin
tmpCanvas := TCanvas.Create;
tmpCanvas.Handle := GetDC(Edit1.Handle);
tmpCanvas.Font.Color := clRed;
tmpCanvas.TextOut(0, 0, '我');
tmpCanvas.Font.Color := clGreen;
tmpCanvas.TextOut(10, 0, '是');
tmpCanvas.Free;
end;
这也太假了吧,太难控制了
你得重画一次,否则就没有了我想说的是,这样做也是可以达到一种效果,呵呵对于字符的位置,楼主可以用画的GetTextHeight方法来得到
宽度也有相应的方法如果楼主想写一个好一点的,那跟
linzhengqun(风。爱的翔舞)说的一样,还不如从TCustomControl继承一个下来
所以建议楼主用RichEdit吧,也可以做成和Edit一样,只能输入一行数据的。