5,392
社区成员
发帖
与我相关
我的任务
分享组件问题
edit
设置属性：
readonly=true
1. 双击edit会全选，怎么设置让它不能全选？
2. 单击edit，怎么让在几个角上画点(delphi设计组件，点击在edit组件上，它在几个角上会出现几个点)
设置属性：
readonly=true
1. 双击edit会全选，怎么设置让它不能全选？
2. 单击edit，怎么让在几个角上画点(delphi设计组件，点击在edit组件上，它在几个角上会出现几个点)
...全文
请发表友善的回复…
发表回复
ncidream 2007-03-26
- 打赏
- 举报
??????????????????
cqbonny 2007-03-26
- 打赏
- 举报
3. 在panel上，用鼠标圈中2个edit，该怎么这圈中的edit呢
用shift，然后鼠标点击
用shift，然后鼠标点击
ncidream 2007-03-23
- 打赏
- 举报
还是有啊
chenzhuo 2007-03-23
- 打赏
- 举报
呵呵!
只是屏蔽了
JCEdit1.SetFocus;
JCEdit1.SelectAll;
这种情况!,再看看
只是屏蔽了
JCEdit1.SetFocus;
JCEdit1.SelectAll;
这种情况!,再看看
ncidream 2007-03-23
- 打赏
- 举报
自己顶
ncidream 2007-03-23
- 打赏
- 举报
用了
procedure WMSETSEL(var Message: TMessage); message EM_SETSEL;
不行
加上 procedure WMSetFont(var Message: TWMSetFont); message EM_SETSEL;
报错，不认TWMSetFont
procedure WMSETSEL(var Message: TMessage); message EM_SETSEL;
不行
加上 procedure WMSetFont(var Message: TWMSetFont); message EM_SETSEL;
报错，不认TWMSetFont
chenzhuo 2007-03-23
- 打赏
- 举报
procedure WMSETSEL(var Message: TMessage); message EM_SETSEL;
chenzhuo 2007-03-23
- 打赏
- 举报
在TEdit里继承一个类啦
procedure WMSetFont(var Message: TWMSetFont); message EM_SETSEL;
不执行其他东西
procedure WMSetFont(var Message: TWMSetFont); message EM_SETSEL;
不执行其他东西
ncidream 2007-03-23
- 打赏
- 举报
如何实现呢
ncidream 2007-03-23
- 打赏
- 举报
3. 在panel上，用鼠标圈中2个edit，该怎么这圈中的edit呢
chenzhuo 2007-03-23
- 打赏
- 举报
屏蔽 EM_SETSEL 消息应该可以不让全选
