怎样能更改文本框中某一个字符的颜色？？

Question

怎样能更改文本框中某一个字符的颜色？？
使这一个字符与文本框中其它的字符的颜色不一样??

Answer 1

找一下，用RichEdit,再加个消息
procedure TMainFrm.entertotab(var msg: Tmsg; var handled: boolean);
begin
  if Msg.message=WM_KeyDown then
    if Msg.WParam=VK_Return then
    keybd_Event(VK_Tab,0,0,0);
end;procedure TMainFrm.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=entertotab;
end;就是一样的效果了:)
RichEdit的颜色如何改变，你应该会做吧。
--------------------------------------------------------------
怎么了啊？我回复一个贴子要回复六七次才可以把内容回复成功？郁闷~~~~~~~~~

Answer 2

var
     vc : TCanvas;
     vStr : String;
begin
     vc := TCanvas.Create;
     vc.Handle := GetDc(Edit1.Handle);
     vStr := Trim(Edit1.Text);     vc.TextOut(1,1,Copy(vStr, 1, 2));
     vc.Font.Color := clBlue;
     vc.TextOut(14, 1, Copy(vStr, 3, Length(vStr) - 2));
end;

Answer 3

最好的方法是用RichEdit。刀仔，你的方法你调试通过了吗？

Answer 4

用RichEdit控件！
有问题请发信息到我的E-mail:[email protected]