组件问题

Question

edit设置属性：
   readonly=true1. 双击edit会全选，怎么设置让它不能全选？
2. 单击edit，怎么让在几个角上画点(delphi设计组件，点击在edit组件上，它在几个角上会出现几个点)

Answer 1

屏蔽 EM_SETSEL 消息应该可以不让全选

Answer 2

3. 在panel上，用鼠标圈中2个edit，该怎么这圈中的edit呢

Answer 3

在TEdit里继承一个类啦
procedure WMSetFont(var Message: TWMSetFont); message EM_SETSEL;
不执行其他东西

Answer 4

procedure WMSETSEL(var Message: TMessage); message EM_SETSEL;

Answer 5

用了
procedure WMSETSEL(var Message: TMessage); message EM_SETSEL;
不行
加上 procedure WMSetFont(var Message: TWMSetFont); message EM_SETSEL;报错，不认TWMSetFont

Answer 6

呵呵!
只是屏蔽了
  JCEdit1.SetFocus;
  JCEdit1.SelectAll;
这种情况!,再看看

Answer 7

3. 在panel上，用鼠标圈中2个edit，该怎么这圈中的edit呢用shift，然后鼠标点击