怎么在TRichEdit里加入一个图标?

Question

我这样加入后这个TRichEdit不能输入文本了,有什么办法没有?
   Ctrl := TImage.Create(self);
   TImage(Ctrl).Picture.LoadFromFile('F:\others\ee.ico');
   TImage(Ctrl).AutoSize:=true;
   TImage(Ctrl).Top:=point.y;
   TImage(Ctrl).Left:=point.x;
   TImage(Ctrl).Align:=alLeft;
   TImage(Ctrl).parent:=RichEdit1;

Answer 1

呵呵，有一些麻烦，其实也要用到第三方控件，用RxRichEdit吧。有修改过的，可以支持中文。其实要调用那个对话框容易，但是插入对象就很麻烦了，Richedit不直接支持。为什么不用RxRichEdit呢？
var
  NameBuffer: array[0..255] of Char;
  data: TOleUIInsertObject;
begin
  FillChar(Data, SizeOf(Data), 0);
  FillChar(NameBuffer, SizeOf(NameBuffer), 0);
  Data.cbStruct := SizeOf(Data);
  Data.dwFlags := IOF_SELECTCREATENEW;
  Data.hWndOwner := Application.Handle;
  Data.lpfnHook := OleDialogHook;
  Data.lpszFile := NameBuffer;
  Data.cchFile := SizeOf(NameBuffer);
  OleUIInsertObject(data);
end;