请问DELPHI里怎么实现按钮点击就按下，再点弹起的功能啊？？？

bluesnowly 2003-08-22 03:04:40

请问DELPHI里怎么实现按钮点击就按下，再点弹起的功能，就跟现实中那种带锁的按钮一样，

...全文

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

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

wxjh 2003-08-22

打赏
举报

SPEEDBUTTON.DOWN：＝TRUE

games 2003-08-22

打赏
举报

speedbutton就可以，具体设置为SPEEDBUTTON。DOWN：＝TRUE；

foxnt 2003-08-22

打赏
举报

用SENDMESSAGE，先向BUTTON发送一个WM_LBUTTONDOWN的消息,按钮就会被“按”下去。
要使它恢复，则再发送一个WM_LBUTTONUP给他就是了

DouZHlang 2003-08-22

打赏
举报

将TButton 和GroupIndex　设置为非零即可！！

sandro626 2003-08-22

打赏
举报

speedbutton ，GROUPINDEX=1

shjanen 2003-08-22

打赏
举报

教你一种方法如果按钮自带的功能不能实现的话就用其他控件代替如：panel、image

Additional组件页 1、TBitBtn组件：该组件是表面显示位图的位图按钮组件，该组件的行为与Tbutton组件相同。虽然一个TBitBtn组件只能与一个位图相关联，但该位图可以平分为4个部分，分别在按钮处于弹起、按下、禁止和单机状态时显示。 2、TSpeedButton组件：该组件是一个按钮，用于执行一个命令。该组件与Tbutton、Tbitbtn不同，它不是从窗口组件派生的，因此，没有windows句柄，不能获得焦点。但是，该组件具有单机事件，并且能够存储位图。 3、TMaskEdit组件：该组件用于建立掩码文本编辑框，这种文本编辑框与用Edit和RichEdit建立的文本框不同在于规定了文本的格式（即掩码）以避免用户输入非法格式的文本。 4、TStringGrid组件：该组件是一个字符串表格组件，用于简化字符串与关联对象间的操作。该组件提供了许多属性来控制表格的外观，同时也提供了许多方法、事件以电子表格的形式响应用户的动作，此外，该组件还将表格中的字符串关联一个对象，这些对象通过字符串封装了一些信息和行为供用户使用。 5、TImage组件：用TImage组件在窗体上显示一张图片，用TPicture对象在Picture属性中指定一个图标、图元文件、位图图像或用户定义的图像。

Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编辑器、最为领先的数据库技术。对于广大的程序开发人员来讲，使用Delphi开发应用软件，无疑会大大地提高编程效率，而且随着应用的深入，您将会发现编程不再是枯燥无味的工作——Delphi的每一个设计细节，都将带给您一份欣喜。　 1.1 Delphi基本概念介绍　 1.1.1 Delphi的基本形式　 Delphi实际上是Pascal语言的一种版本，但它与传统的Pascal语言有天壤之别。一个Delphi程序首先是应用程序框架，而这一框架正是应用程序的“骨架”。在骨架上即使没有附着任何东西，仍可以严格地按照设计运行。您的工作只是在“骨架”中加入您的程序。缺省的应用程序是一个空白的窗体(Form)，您可以运行它，结果得到一个空白的窗口。这个窗口具有Windows窗口的全部性质：可以被放大缩小、移动、最大最小化等，但您却没有编写一行程序。因此，可以说应用程序框架通过提供所有应用程序共有的东西，为用户应用程序的开发打下了良好的基础。Delphi已经为您做好了一切基础工作——程序框架就是一个已经完成的可运行应用程序，只是不处理任何事情。您所需要做的，只是在程序中加入完成您所需功能的代码而已。在空白窗口的背后，应用程序的框架正在等待用户的输入。由于您并未告诉它接收到用户输入后作何反应，窗口除了响应Windows的基本操作(移动、缩放等)外，它只是接受用户的输入，然后再忽略。Delphi把Windows编程的回调、句柄处理等繁复过程都放在一个不可见的Romulam覆盖物下面，这样您可以不为它们所困扰，轻松从容地对可视部件进行编程。 1.1.2 面向对象编程的概念　面向对象的程序设计(Object-Oriented Programming，简记为OOP)是Delphi诞生的基础。OOP立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句，把函数“封装”进Windows编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容易。说它是一场革命，不是对对象本身而言，而是对它们处理工作的能力而言。对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更糟。除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而Delphi是完全面向对象的，这就使得Delphi成为一种触手可及的促进软件重用的开发工具，从而具有强大的吸引力。一些早期的具有OOP性能的程序语言如C++,Pascal,Smalltalk等，虽然具有面向对象的特征，但不能轻松地画出可视化对象，与用户交互能力较差，程序员仍然要编写大量的代码。Delphi的推出，填补了这项空白。您不必自己建立对象，只要在提供的程序框架中加入完成功能的代码，其余的都交给Delphi去做。欲生成漂亮的界面和结构良好的程序丝毫不必绞尽脑汁，Delphi将帮助您轻松地完成。它允许在一个具有真正OOP扩展的可视化编程环境中，使用它的Object Pascal语言。这种革命性的组合，使得可视化编程与面向对象的开发框架紧密地结合起来。 1.2 Delphi 快速入门　在这一节中，我们来开发一个小程序。随着开发的过程，逐步介绍Delphi的主要部件及其操作方法。建议读者按照本书介绍的过程，在您的电脑上直接操作。您将对Delphi的可视化编程有一个直观、快捷的了解，必将起到事半功倍的效果。　 1.2.1 进入Delphi的可视化编程环境 1.2.1.1 安装Delphi　 Delphi的安装与其它应用软件并无不同。2.0版必须在Windows 95以上的操作系统中使用。启动Windows 95或Windows NT后，将Delphi的光盘放入光驱(CD-ROM)中，运行光盘上的\INSTALL\SETUP.EXE文件，它的安装程序会提示您正确地装入Delphi。如果您是在微软中文Windows环境中安装Delphi，请参照附录A来设置您的BDE环境，以便于处理中文数据。　 1.2.1.2 进入Delphi 环境为避免隐藏在Delphi后的Program Manager和曾经运行过的其它程序扰乱版面，分散您的注意力，不妨在启动Delphi前关掉其它应用程序；启动Delphi后，再最小化隐藏在后面的Delphi 2.0程序组。这样屏幕上就只留下Delphi窗口可见了。首次加载Delphi，屏幕上会出现四个窗口： ● 标题为“Delphi-Project1”的Delphi主窗口 ● Object Inspector窗口 ● 标题为“Form1”的窗体(Form)窗口 ● 标题为“Unit1.PAS”的代码编辑窗口。刚启动时这一窗口的大部分被“Form1”窗体所掩盖。将“Form1”窗体移开，或单击Form1窗体下方的状态行，可以使其全部可见。在“Form1”窗体的任意可见位置单击鼠标，可以恢复主窗体可见以下我们将对这四个窗口分别进行介绍。　 1.2.2 Delphi可视化编程环境介绍　 1.2.2.1 主窗口(Main Form)　 Delphi的主窗口位于屏幕的上端，包括Menu(菜单)、Speed Bar(加速条)和Component Panel(部件选项板)。Menu是下拉式主菜单。Speed Bar位于主窗口的左下端，由两排共14个加速按钮组成。这些按钮是菜单功能的快捷方式，各种图标直观地表示了它能执行的动作。Component Panel由一行、若干页对象按钮所组成，利用它来选择需要的部件并将它放到窗体中去。　 1.2.2.2 Object Inspector(对象检视器)　 Object Inspector窗口含有两页：Properties页显示窗体中当前被选择部件的属性信息，并允许改变对象的属性；Events页列出了当前部件可以响应的事件。按动Object Inspector下端的“Events”页标签，使得Events页可见，这一定的事件后边的空白处，可以定义对象接受到相应事件时执行的动作。首次启动时，Object Inspector窗口显示的是当前窗体Form1的属性。Object Inspector根据对象属性的多少，决定是否有滚行显示。移动滚行条，可以查看当前对象的全部属性。此外，Object Inspector上还有Object Selector(对象选择器)，位于Object Inspector上方的下拉式菜单中。它显示了窗体上所有部件的名称和类型，也包含窗体本身。您可以用Object Selector很容易地在窗体的各个部件之间切换，也可以快速地回到窗体本身。当窗体中含有较多的对象时，您会发现这是切换对象尤其是回到窗体的最快捷途径。想使Object Inspector一直可见，可将鼠标移到Object Inspector上，按动右键，以启动Object Inspector的弹出式菜单，将其设置为Stay On Top。这对初学者常是一个很重要的设置方式。　 1.2.2.3 窗体窗口　 Forms窗口是开展大部分设计的工作区域。首次启动Delphi 2.0时显示的是窗体Form1。可以把部件放在窗体中，通过移动位置、改变尺寸等操作随心所欲地安排它们，以此来开发应用程序的用户界面。您可以把窗体想象成一个可以放置其它部件的容器。窗体上有栅格(Grids)，供放置部件时对齐位置用，在程序运行时Grids是不可见的。一个真正的应用程序可能有不止一个窗口，您可以选用不同的窗体进行设计。其它窗体可以是对话框(Dialog Box)、数据录入框等。　 1.2.2.4 代码窗口　代码窗口一开始处于窗体窗口之下。因为在Delphi中，设计用户界面直接在窗体中进行，运行结果和设计样板完全一致。当部件被放到窗体上时，Delphi会自动生成大部分的用户界面代码。您所应做的只是在它为您生成的框架中加入完成所需功能的程序段而已。点动Form1的状态行使代码窗口可见。这个窗口中是代码编辑器。可以在其中书写Delphi应用程序的源代码。当程序中含有不止一个窗口时，会有几个库单元的源程序出现在代码编辑器中。代码编辑器的标题条中显示了当前正在编辑的库单元文件名。要查看某一特定程序的源代码，只需用鼠标点动写有该库单元文件名的页标签，就可以对该库单元进行编辑了。

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。

mxOutlookBarPro可以在Delphi和BCB中实现QQ、OutLook界面和windows资源管理器的效果。包含C5、C6、D5、D6、D7各种版本的组件。此为2.13修改版,增加SelectedAsCheck属性，定义对mxButton的点击是否像PushButton一样，即单次点击时按下，再次点击时弹起。调整代码，在内部拖动按钮时也产生OnDragDrop事件。内带Demo文件。

关键字: QQ界面换肤自绘控件透明窗口 Vista样式免费开发包随着计算机技术的发展与普及，计算机逐渐走进了人们的日常生活当中。人们通过它来学习,娱乐,信息的交互等等.并且对应需而生的各种各样的软件产品的要求也有了一定的提高。除了基本功能外,对软件易操作性,界面的美观性等也是一个成功软件必不可少的重要因素。美观个性化的界面是一个软件吸引和留住用户的法宝之一,通讯软件QQ/MSN就是这类产品中的一个典型的代表,下面将用VC++对QQ的界面进行模拟实现,供广大朋友参考。相信各位对QQ已经相当熟悉,因此对其外观特性等不作累叙.我们将选用Visual C++来进行进行实现。在这之前,有必要向读者介绍一下大体情况。其实，整个过程最重要的部分是个性化界面自绘部分,也是难度最大的部分。关于界面编程方面的知识,诚然这是一个较为大的体系结构,我们不能奢求通过简短的篇幅就能对它进行较为全面的描述,并且现在软件开发行业也有缩短开发周期,提高开发效率的趋势,于是将这一难度问题借用外在控件协助我们完成. 关于换肤控件的选择,这里也向大家简单介绍一下,当然这只是个人的观点,仅供参考了解。当前市场提供多个换肤出名的换肤产品(SkinMagic,Skin++,USkin,AppFace,SkinCrafte,等),其中SkinMagic,AppFace,USkin等都是做得比较马虎的,界面的某些元素效果做得让人不太满意.而Skin++和SkinCrafte在这方面做得比较出色.客观的说Skin++目前应该说,是国内较为出色的产品,其占用资源消耗比俄国产品SkinCrafte要出色,而俄国产品SkinCrafte在外观性能上做到的效果比Skin++要优秀点，COOL一点. 虽然如此,本实现没有选用以上任何一产品,原因是这里有一个新起之秀SkinBeauty,它无论是性能和外观做出的效果都比较嚣张,更甚的是宣称提供良好的键盘操作支持同时并号称在Win2K和XP等系统可以做出Vista的玻璃磨沙效果。当然,这些都是所谓的比较结果而已,还有一个选用SkinBeauty的原因是：SkinBeauty可以使用自带的皮肤编辑软件（SkinBeauty Studio）实现一套皮肤包含多种样式的窗口界面,按钮样式等。这是以上任何一个产品暂时似乎都不能提供的。而我们这个项目的需求也有此(主界面,聊天对话框窗口不同,并有多个不同特性的按钮等细节问题)。经过了前面的简单描述,接下来将开始具体的实现了。先看一下目标效果,如图： 0．准备工作：用产品相应的皮肤编辑软件SkinBeautyStudio编辑好界面各元素皮肤，一般好看的界面都是由图片绘制所成（这里是到其主站下载已有的BeautyQQ.bsk皮肤）。将下载好的换肤开发库（SkinBeauty.dll，SkinBeauty.lib）和接口文件SkinBeautyExport.h准备好，下载地址在本文章后有给出，或自己到www.afe-soft.com上自己下载。 1．建立项目：打开VC++,利用向导帮助建立基于MFC的对话框项目BeautyQQ，过程如下 New-> Projects -> MFC AppWizard(exe) -> Dialoag based 其他默认完成建立。简单的修改一下对话框的大小，标题栏名称等，编译一下，如图：，运行一下基本正常，这就算完成了项目的创建工作了。 2．加载换肤库做好基本框架后，界面还是很土，运行效果难以让人满意，于是我们接下来可以加载换肤库，初步改变程序的界面外观了。将先前准备好的skinBeauty.dll库放在项目的运行目录，在项目的目录放入SkinBeautyExport.h文件和SkinBeauty.lib文件，以便稍后引入并调用函数接口。（一般DLL库的调用分成静态调用和程序运行期间动态调用2种，关于这两种的区别，可参考其他文章。这里，我们将选用静态调用的方式实现）在适当的位置添加引入库的声明，这里我们选择在stdafx.h文件里面添加: //inside stdafx.h //SkinBeauty Lib Call #include "SkinBeautyExport.h" #pragma comment(lib,"SkinBeauty.lib") 在项目得初始化位置(这里选择在项目的创建实例cpp文件里面，BeautyQQ.cpp的CBeautyQQApp::InitInstance()函数的开始,一般都可以在此加载)加入皮肤加载的代码: BOOL CBeautyQQApp::InitInstance() { CString exeFullPath; CString strFilename; int nLen = GetModuleFileName(NULL, exeFullPath,MAX_PATH); CString strPath(exeFullPath); strPath = strPath.Left(strPath.ReverseFind('\\')); strFilename = strPath +_T("\\beautyQQ.bsk"); SkinLoad(THCAR2char(strFilename.GetBuffer(0))); ….. } 从上面可知,我们先用GetModuleFileName()获取加载皮肤的路径,然后调用提供的函数接口SkinLoad()实现换肤库的加载。而SkinLoad()函数的参数也比较容易理解，就是皮肤所谓位置的路径。它的原型可以在头文件找到： //load the skin with a skin-file from a path. //[IN]:absolute file path BOOL SkinLoad(char* szSkinPath); 至此，已经完成换肤库的加载了。运行看看效果是不是眩了很多，呵呵。顺便说一下的是，官方声称,调用完SkinLoad()载入后，在退出程序前并不需要调用任何卸载函数，换肤引擎将自动实现库的销毁拆装等操作，除非你程序运行中途意愿性的想去掉皮肤外观。现在已经完成QQ主界面的外观实现与美化了，接下来我们通过VC向导添加一个对话框资源并添加相应的类，命名CtalkDlg类，其功能是聊天对话框的对话窗口,也就是当我们双击用户列表的其中一个用户后弹出的聊天窗口.当我们运行的时候发现，它的窗口背景外观除了大小外，其它跟主界面是完全一样的，怎么办呢？没有关系，因为在皮肤文件里面已经编辑和准备好另一外观的窗口皮肤资源，我们只需要将这个聊天对话框创建后跟这个皮肤资源绑定则可，重载这个CtalkDlg类的初始化函数，并添加绑定代码，具体实现如下： BOOL CTalkDlg::OnInitDialog() { CDialog::OnInitDialog(); //将该对话框绑定某资源ID,让其绘制根据该资源定义来实现 //bind with the predefine res BindRes2CtrlbyHWND(103,m_hWnd); ……. } 上述代码功能是将预先在beautyQQ.bak皮肤里面定义好的对话框图像资源与对话框绑定，资源内部ID号为103（注意，该资源编号是编辑皮肤的时候就是由用户定义的，一般从101开始）。从上面的BindRes2CtrlbyHWND（）函数名称以及参数可知道，功能是将窗口句柄为m_hWnd的窗口外观与资源Id为103的皮肤资源绑定.于是，这就实现了不同窗口可以显示不同的背景皮肤了。跟这个功能相类似的是，我们聊天对话框有好几个按钮，它们拥有不一样的外观，按理也应该绑定指定需要的外观皮肤资源，于是，我们可以采用以下函数接口实现： BindRes2CtrlbyID(106,IDC_BUTTON_TALK_SERACH); 以上语句是将皮肤资源ID为106的皮肤跟程序资源ID为IDC_BUTTON_TALK_SERACH的搜索按钮相绑定，该函数接口可以在程序运行前面预先将某控件与指定的皮肤资源相绑定，提供的是控件资源ID与皮肤资源ID。当然也可以用句柄的方式绑定，跟前面的BindRes2CtrlbyHWND()不同的是，大多数对话框窗口在运行期间没有固定的控件资源ID的概念（不象button，edit等控件），所以只能使用实时句柄HWND的形式进行绑定。前面两个资源绑定函数的原型在SkinBeautyExport.h头文件里面可以找到，如下： //bind a skin_resource with a Ctrl by Ctrl ID or by handle //[IN]:user resource define in the skin-file; the ID/handle of Ctrl to be set void BindRes2CtrlbyID(int nUserResID,DWORD dwCtrlID); BOOL BindRes2CtrlbyHWND(int nUserResID,HWND hWnd); 好，经过上面的描述后，对照附件的源码，对于QQ的菜单，用户列表等实现已经不是那么困难了，用户只需象正常的菜单和ListCtrl那样使用就可以了，运行的时候换肤库自动会将他们的外观美化起来。读者可下载源码，看它是怎么绑定实现的。基本整个复杂而超眩的项目就在完成向导创建后调用两到三个第三方接口函数中完成。坦白说，整个换肤开发包提供的接口函数相当简练，就10多个，功能与使用方法亦是相当明了，相信无需多研究就知道如何使用；如果对这几个接口函数有什么疑问，可以参考官方提供的开发文档说明书。其实上面的例子跟商家提供的源码类似，只是本人将其实现过程解释出来而已，希望对做界面的朋友有参考作用。开始我是对使用商家界面换肤产品的行为比较反感，后来发现效果和效率还凑和，就算了，并在商家的鼓励下写了篇文章帮他们介绍给读者认知，换取了一个企业版本的开发包。算是“个人利益跟群众利益结合”吧，的确不错的，大家可以测试。不过我想对国内某些用户不太满意的是，目前SkinBeauty的使用文档是英文著写的，暂时没有中文版本，这对部分不动E文的朋友有点不方便罢了。搞界面开发的，建议多下载几个换肤产品看看其性能，如资源占用，做到的效果,键盘操作性等。结语在尤为强调效率的时代，不妨考虑使用可信赖的第三方控件,将繁杂而固化的实现扔给它们来处理,深入产品功能业务，站在别人的肩膀上，再优化自身，从而走得更高更远。使用换肤开发包SkinBeauty开发商主页：www.afe-soft.com 开发包（免费版本）下载地址： http://www.afe-soft.com/downloadcenter.htm 开发文档下载地址: http://www.afe-soft.com/downloadcenter.htm (免费版本是无Logo,无弹出窗口限制的，这点可以给部分做共享的朋友点方便了，估计,当然，如果要性能好，不完全受限还是需要获取企业版本了..天下没有免费的午餐,天下乌鸦一般黑？…呵呵，还是不损得太厉害了) 界面换肤美化异形窗口 vista 样式透明窗体自绘控件 vc vb delphi 编程源码代码例子磨沙半透明开发包免费破解 button dialog frame XP 下载自绘按钮菜单标题栏滚动条 listctrl treeview listview scrollbar menu QQ界面软件程序界面编程

Delphi

5,385

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章