社区
Delphi
帖子详情
如何使TMemo控件不能获得键盘,鼠标焦点?
kwest
2003-04-09 07:45:20
就象windows的计算器一样,上面那个文本窗口不能获得鼠标光标的。
...全文
147
11
打赏
收藏
如何使TMemo控件不能获得键盘,鼠标焦点?
就象windows的计算器一样,上面那个文本窗口不能获得鼠标光标的。
复制链接
扫一扫
分享
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
haoco
2003-04-12
打赏
举报
回复
你可以这样:
先放一个Panel,再将Memo放到Panel上面,将Panel的Enable设为false这样Memo就不能得到焦点,而它也不会变灰的
jifee
2003-04-12
打赏
举报
回复
为什么不用TLabel控件,只要WordWrap:=True就和Memo一摸一样。
TMemo本身是TWinControl,不可能拦截焦点,除非在CreateParameter方法和ControlStyle属性中作文章;
kwest
2003-04-12
打赏
举报
回复
谢谢各位了,看来也只好如此了。。。。
blazingfire
2003-04-12
打赏
举报
回复
hehe~~~
不要用TEdit,TMemo
呀,用TPanel,该颜色和边框就行了!
kwest
2003-04-11
打赏
举报
回复
你们说的方法我用过的,ReadOnly:= true;可以使选取文本不能修改.
enable:=false;到是可以使Memo不能获得鼠标光标,但文本变灰了,有碍观赏 ^_*
我想是不是可以通过拦截鼠标消息来达到这个目的,我用spy++观察了一下,可能是WM_ACTIVECURSOR
消息,不过,小弟我才疏学浅,望那位大侠能不吝赐教!!
分不够,我可以再加的...
数字蛋糕
2003-04-09
打赏
举报
回复
如果你只是想显示文字,使用Label加上WordWrap就可以了。
如果你希望用户能够选取文本却又不能修改,使用Memo的时候加上ReadOnly就行了。
如果你不希望用户按TAB键跳入Memo,那么就应该设置TabStop为False。
lhy39494111
2003-04-09
打赏
举报
回复
ReadOnly:= true;
enable:=false;
siyu2002
2003-04-09
打赏
举报
回复
enable:=false;
joky1981
2003-04-09
打赏
举报
回复
ReadOnly:= true;
TabStop:= false;
czzw
2003-04-09
打赏
举报
回复
enable:=false;
weitao999
2003-04-09
打赏
举报
回复
比如还有一edit或button
在memo的onenter事件里可以这样写
edit.setfocus(or button.setfocus)
delphi简单判断程序30秒没有
键盘
和
鼠标
动作示例
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1:
TMemo
; Butt
Memo
控件
中控制翻页
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1:
TMemo
; Button1: TButton
Delphi 2010 新增功能之: 软
键盘
、触摸
键盘
(TTouchKeyboard)
本例效果动画图(因不是触摸屏, 只能用
鼠标
测试一下): 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Keyboard, TeCanvas; ty...
FireMonkey 做界面的一个小技巧
小技巧就是,要让一个东西随
鼠标
指过去颜色变深,
鼠标
离开颜色变回正常,以
获得
对
鼠标
的响应,可以给那个东西上面罩一个 TRectangle,设置其透明度让它半透明。然后在
鼠标
事件里面,设置这个 TRectangle 的 Visible 属性来改变它显示或者不显示。
一个Delphi程序员自述的开发经验
一个Delphi程序员自述的开发经验 作者:Sabine 来源:赛迪论坛 发布时间:2006.01.10
Delphi
5,943
社区成员
262,941
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章