请问如何在TRichView中插入的Tedit能够用鼠标拖动的方法改变TEdit的大小和位置

Question

如题？

Answer 1

给你个思路：
1、Edit Bingtofront 意思edit置上
2、mousedown中进行大小的改变；用drag动作改变位置
3、需要获取鼠标的位置来确定目标位置

Answer 2

var
  mousepos_x,mousepos_y :integer;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    mousepos_x := x;
    mousepos_y    :=y;
end;procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  move_x,move_y  :integer;
begin
   move_x := X- mousepos_x;
   move_y := Y- mousepos_y;   TButton(sender).left :=    TButton(sender).Top+move_x;
   TButton(sender).top :=    TButton(sender).Top+move_y;end;

Answer 3

哦忘了转坐标　
你用ScreenToClient\ClientToScreen转化下