DELPHI中如何设置控件为焦点?

skysky 2000-07-30 09:19:00

DELPHI5中有没有办法象VB的SETFOCUS方法一样设置某控件为焦点呢?

...全文

1316 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

mophy 2000-08-13

打赏
举报

Delphi 也有 setfocus 啊！

icewind 2000-08-05

打赏
举报

winapi sendmessage wm_focuse

wsf 2000-08-02

打赏
举报

当然有,如edit1.setfocus

meijg 2000-08-02

打赏
举报

TWinControl.SetFocus
只要是继承于TWinControl的控件都有这个方法，比如TEDit,TBitBtn,Tbutton等

Jujus 2000-08-01

打赏
举报

可以,TWinControl类就有SetFocus方法,只要是TWinControl的派生类就可以用,如TButtonControl,TCustomCombobox,TCustomControl,TCustomEdit,TCustomListbox等.

用法:TWinControl.SetFocus

whnjn 2000-07-30

打赏
举报

在Object Inspector里设置Default属性为TRUE即可。在DELPHI里，可以有多个VCL组件有此属性，此时DELPHI会将FOCUS置于第一个满足此种属性的VCL组件上。
拥有DEFAULT=TRUE属性的组件可以响音键盘回车事件。

Delphi演示失去焦点的Edit控件，文字框在失去焦点后应该怎么办，Delphi7源码下载。　　procedure Register;//在IDE中进行注册　　begin 　　 RegisterComponents('Samples',[Tmyedit]); 　　 //注册到Samples页中，控件名是Tmyedit 　　end; 　　procedure Tmyedit.wndproc(var message:tmessage); 　　begin 　　 if message.msg=wm_mousemove then 　　 begin 　　 {设置光标为crarrow,而不是缺省的crBeam光标} 　　 cursor:=crarrow; 　　 exit; 　　 end; 　　 {屏蔽掉WM_SetFocus消息,不让Tmyedit控件获得输入焦点} 　　 if message.msg=wm_SetFocus then exit;{什么也不执行} 　　 inherited wndproc(message);{其它消息交父辈的wndproc处理} 　　end;

大家用惯了BSskin和VCLskin，但是这个跟专业！支持的开发语言 Borland Delphi 4/5/6 Borland Delphi 7 Borland Delphi 8 Borland Delphi 2005 Borland Delphi 2006 CodeGear Delphi 2007 支持的操作系统 Windows Vista Wndows 2000/XP/2003 Windows NT4.0 Windows Me Windows 98/98SE Windows 95 版本信息当前版本：3.0 文件大小：24.9MB 更新日期：2006-12-6 下载次数：22670 软件概述 Skin++ For Delphi目前全面支持Delphi4、Delphi5、Delphi6、Delphi7、Delphi8、Delphi2005、Delphi2006。迄今为止，Delphi支持4种类型的应用程序： 1、VCL Forms Application – Delphi for Win32 (该类型在Delphi4/5/6/7/2005/2006所有版本包含)； 2、VCL Forms Application – Delphi for .Net (该类型在Delphi8/2005/2006中包含)； 3、Windows Forms Application – C# Builder (该类型在Delphi2005/2006中包含)； 4、Windows Forms Application – Delphi for .Net (该类型在Delphi8/2005/2006中包含)。 Skin++对以上4种Delphi程序类型做了全面的支持。试用版本描述与运行截图 1．在本安装盘中，包含了Delphi的各个版本(D6,D7,D8,D2005,D2006)Skin++测试例子； 2．关于如何使用Skin++，请参考文档《Skin++ For Delphi [All Edition]使用帮助》； 3．要查询Skin++所有的接口，请参考文档《Skin++接口描述》； 4．本安装盘提供一套试用皮肤PixOS.ssk，正式版用户将获得网站上更多更精美的皮肤。并可获得定期更新； 5．Skin++正式版中提供强大的皮肤设计工具Skin++Builder。该工具完成皮肤所有的设计工作，并可以全自动导入Windows主题、第三方主题； Skin++Builder使用详情请参考《Skin++Builder Help》； 6．案例说明：我们以Delphi2006 VCL Win32的测试例子为例，描述其组成。打开\Delphi 2006\VCL Forms Application - Delphi For Win32\目录中的MDIAPP.exe 该例子是一个MDI类型的程序。主窗口部分演示Skin++在MDI方面处理的各个细节。如：主菜单条、主弹出菜单、系统菜单、工具条、状态条、MDI客户区、MDI子窗口、MDI子窗口最大化后等各个部分的换肤细节。 Skin++ 3.0 可以对皮肤进行动态的色调设置这个功能可以使您的程序可以瞬间拥有N套色调的皮肤。更改色调样例1：我们分以下几个页面对Delphi的全部控件进行了演示： Buttons、Static、Controls with ScrollBar(带滚动条的控件)、Splitter、TabControls、TrackBar & Progress、Misc Controls、Dialog、DataControls 6.1 Buttons 该部分我们演示了Skin++对Delphi的各种类型的按钮进行的换肤支持，包括BitBtn按钮、SpeedButton、Tbutton、CheckBox、RadioBox 在该部分，还演示了对按钮进行多风格的换肤效果，“Style 2”按钮和其他按钮不同，呈现了其特有样式。这种效果一般用在网络电话、多媒体软件、网络聊天等需要同时支持多种按钮风格的地方。每个按钮具有其固定的5中状态：正常、按下、高量、禁用、默认。在该窗体中演示了每种按钮的5中状态。并且在Skin++ 3.0 中，支持Focus的效果。通过Tab或方向键可以看到焦点在每个按钮上移动。 6.2 Static 该部分演示了Skin++ 对Label、GroupBox、右键菜单、Panel、FlowPanel、GridPanel等控件的支持。值得一提的是，Skin++对Label的支持是彻底，并且不像其他的换肤软件需要在窗体上放置一个

控件获得焦点时变色.rar控件获得焦点时变色.rar控件获得焦点时变色.rar

一共2个部分，分别下载。用过BSskin或者VCLskin的哥们支持的开发语言 Borland Delphi 4/5/6 Borland Delphi 7 Borland Delphi 8 Borland Delphi 2005 Borland Delphi 2006 CodeGear Delphi 2007 支持的操作系统 Windows Vista Wndows 2000/XP/2003 Windows NT4.0 Windows Me Windows 98/98SE Windows 95 版本信息当前版本：3.0 文件大小：24.9MB 更新日期：2006-12-6 下载次数：22670 软件概述 Skin++ For Delphi目前全面支持Delphi4、Delphi5、Delphi6、Delphi7、Delphi8、Delphi2005、Delphi2006。迄今为止，Delphi支持4种类型的应用程序： 1、VCL Forms Application – Delphi for Win32 (该类型在Delphi4/5/6/7/2005/2006所有版本包含)； 2、VCL Forms Application – Delphi for .Net (该类型在Delphi8/2005/2006中包含)； 3、Windows Forms Application – C# Builder (该类型在Delphi2005/2006中包含)； 4、Windows Forms Application – Delphi for .Net (该类型在Delphi8/2005/2006中包含)。 Skin++对以上4种Delphi程序类型做了全面的支持。试用版本描述与运行截图 1．在本安装盘中，包含了Delphi的各个版本(D6,D7,D8,D2005,D2006)Skin++测试例子； 2．关于如何使用Skin++，请参考文档《Skin++ For Delphi [All Edition]使用帮助》； 3．要查询Skin++所有的接口，请参考文档《Skin++接口描述》； 4．本安装盘提供一套试用皮肤PixOS.ssk，正式版用户将获得网站上更多更精美的皮肤。并可获得定期更新； 5．Skin++正式版中提供强大的皮肤设计工具Skin++Builder。该工具完成皮肤所有的设计工作，并可以全自动导入Windows主题、第三方主题； Skin++Builder使用详情请参考《Skin++Builder Help》； 6．案例说明：我们以Delphi2006 VCL Win32的测试例子为例，描述其组成。打开\Delphi 2006\VCL Forms Application - Delphi For Win32\目录中的MDIAPP.exe 该例子是一个MDI类型的程序。主窗口部分演示Skin++在MDI方面处理的各个细节。如：主菜单条、主弹出菜单、系统菜单、工具条、状态条、MDI客户区、MDI子窗口、MDI子窗口最大化后等各个部分的换肤细节。 Skin++ 3.0 可以对皮肤进行动态的色调设置这个功能可以使您的程序可以瞬间拥有N套色调的皮肤。更改色调样例1：我们分以下几个页面对Delphi的全部控件进行了演示： Buttons、Static、Controls with ScrollBar(带滚动条的控件)、Splitter、TabControls、TrackBar & Progress、Misc Controls、Dialog、DataControls 6.1 Buttons 该部分我们演示了Skin++对Delphi的各种类型的按钮进行的换肤支持，包括BitBtn按钮、SpeedButton、Tbutton、CheckBox、RadioBox 在该部分，还演示了对按钮进行多风格的换肤效果，“Style 2”按钮和其他按钮不同，呈现了其特有样式。这种效果一般用在网络电话、多媒体软件、网络聊天等需要同时支持多种按钮风格的地方。每个按钮具有其固定的5中状态：正常、按下、高量、禁用、默认。在该窗体中演示了每种按钮的5中状态。并且在Skin++ 3.0 中，支持Focus的效果。通过Tab或方向键可以看到焦点在每个按钮上移动。 6.2 Static 该部分演示了Skin++ 对Label、GroupBox、右键菜单、Panel、FlowPanel、GridPanel等控件的支持。值得一提的是，Skin++对Label的支持是彻底，并且不像其他的换肤软件需要在窗体

让Delphi输入框组件得到焦点时变色显示..rar

Delphi

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章