J
jbas
Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现这样的功能：
1:能把Timage控件动态的插入的到rxrichedit中，主要要它的onclick事件。这个插入的图片
会随鼠标跑，即不会盖住rxrichedit中的字符。就象word中插入录音后，在word中出现一个录音
图标，点击那个图标后，就播放录音了。word中可以实现，delphi也应该可以的！
我的代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
pic:timage;
begin
pic:=timage.Create(self);
pic.Parent:=rxrichedit1;
pic.Picture.LoadFromFile('d:/delphi/zy1/bmp/play.bmp');
pic.AutoSize:=true;
pic.OnClick:=picclick;
//clipboard.Assign(pic.Picture);
//rxrichedit1.PasteFromClipboard;
//clipboard.Clear;
end;
这代码执行后，是在rxrichedit中插入了Timage,有了onclick属性。但1是它的大小比实际的大，
2是不能输入别的字符了，输入后只显示“|”。不管是数字键，还是字母键，还是中文字,望高手
们帮忙看看，怎样解决。
1:能把Timage控件动态的插入的到rxrichedit中，主要要它的onclick事件。这个插入的图片
会随鼠标跑，即不会盖住rxrichedit中的字符。就象word中插入录音后，在word中出现一个录音
图标，点击那个图标后，就播放录音了。word中可以实现，delphi也应该可以的！
我的代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
pic:timage;
begin
pic:=timage.Create(self);
pic.Parent:=rxrichedit1;
pic.Picture.LoadFromFile('d:/delphi/zy1/bmp/play.bmp');
pic.AutoSize:=true;
pic.OnClick:=picclick;
//clipboard.Assign(pic.Picture);
//rxrichedit1.PasteFromClipboard;
//clipboard.Clear;
end;
这代码执行后，是在rxrichedit中插入了Timage,有了onclick属性。但1是它的大小比实际的大，
2是不能输入别的字符了，输入后只显示“|”。不管是数字键，还是字母键，还是中文字,望高手
们帮忙看看，怎样解决。