在Richedit中插入图片以后,如何控制用户不可以用Mouse去改变图片的大小?(10分)

  • 主题发起人 主题发起人 mycuzhoujun
  • 开始时间 开始时间
M

mycuzhoujun

Unregistered / Unconfirmed
GUEST, unregistred user!
在Richedit中插入图片以后,如何控制用户不可以用Mouse去改变图片的大小?
 
监控Richedit的MouseMove事件,当选中内容为stObject时,马上使选中内容的选中状态改变。
以下以RxRichEdit为例:

procedure TForm1.RxRichEdit1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if RxRichEdit1.SelectionType = [stObject] then
RxRichEdit1.SelLength:=0;
end;
 
改进一下:

procedure TForm1.RxRichEdit1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if MouseCapture and (RxRichEdit1.SelectionType = [stObject]) then
RxRichEdit1.SelLength:=0;
end;
 
感谢大侠的回答,但是用您的方法,发现问题依然存在
 
MSN中的聊天的richedit中的图片是可以点中的,但是不可以用鼠标去改变图片的大小。
 
我已经通过插入OLE对象解决问题了。
 
mycuzhoujun大侠具体是如何解决的啊?
 
楼主能否公布代码出来?谢谢,分数可以另开帖子给你。
 
我顶一下!
 
后退
顶部