Delphi中Form窗体的标题被设计成绘制在系统菜单的旁边,如果你想要在标题栏绘制自定义文本又不想改变Caption属性,你需要处理特定的Windows消息:WM_NCPAINT.. WM_NCPAINT消息在需要重绘边框时发送到窗口,应用程序可以利用该消息绘制自己的窗口边框. 注意,同时你也要处理窗口激活或失去焦点的WM_NCACTIVATE消息,如果不处理,当窗口失去焦点时,自定义绘制的文本会消失. type TCustomCaptionForm = class(TForm) privat

( 一 ) 使用动态创建的方法 uses ComObj; 首先创建 Excel 对象Var   ExcelApp : Variant ;   ExcelApp := CreateOleObject ( '' Excel.Application '' ) ; 得到 Excel 的行数和列数ExcelApp.worksheets[1].usedrange.rows.countExcelApp.worksheets[1].usedrange.columns.count; 1 ) 显示当前窗口: Exc

在软件开发中,为软件加入权限控制功能,使不同的用户有不同的使用权限,是非常重要的一项功能,由其在开发数据库方面的应用,这项功能更为重要.但是,要为一个应用加入全面的权限控制功能,又怎样实现呢?大家知道,现在的应用,一般均以菜单访问功能的形式出现,按照常规的做法,只要让注册进入应用的不同用户,可以访问不同的功能菜单,从而实现功能权限的控制,但是,有这样一个问题,此种方法便无能为力,现在的应用软件,为了提高软件的易操作性,同一功能可能有多种不同的访问方式,如工具条,右键菜单等:同样,同一个功能,也可

用Delphi从数据库中取得资料,然后导出到Excel中做成报表是个不错的选择,因为Excel强大的报表功能那可是没话说前提Delphi中要 uses comobj;var Excel:Variant;一.Excel操作1.创建Excel对象Excel := CreateOleObject( Excel.Application );2.显示ExcelExcel.Visible:=true;3.更改标题Excel.Caption:=Excel的标题;4.退出ExcelExcel.Quit;二.工作

核心提示:使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏. 使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏.从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是:开始 按钮.应用程序切换区(Application Switch Bar).任务栏通知区(Notification Area)以 及任务栏时钟.与其它Windows应用程序相同,任务栏程序(sys

你的电脑有没有摄像头?看到别人用QQ玩视屏你会不会去想怎么实现的?这里介绍使用DELPHI使用MS的 AVICAP32.DLL就可轻松的实现对摄像头编程,如果再加上你的网络编程水平,实现一个视屏聊天就不成什么问题了. 看看下面代 码的代码: const WM_CAP_START = WM_USER; ; ; ; ; ; ; ; ; ; ; ; function capCreateCaptureWindowA(lpszWindowName : PCHAR; dwStyle : longint; x

delphi语言受众多程序员追捧,主要原因之一就是它有很多第三方的控件可供使用.很多资深的delphi程序员都把自己积累的函数.过程等设计成控件,以方便使用,提高开发效率. 本文通过一个只允许输入数字.并且可以设置输入值范围和小数点位数的编辑框控件的设计,详细介绍了控件的实现方法.该控件继承自edit控件,控件单元名称为numedit,控件类名称为tnumedit.控件的实现主要分为4个阶段: 1. 建立控件原型. 2. 设计控件功能代码. 3. 设计控件图标. 4. 安装发布控件. 下面对这四

使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏.从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是:开始 按钮.应用程序切换区(Application Switch Bar).任务栏通知区(Notification Area)以 及任务栏时钟.与其它Windows应用程序相同,任务栏程序(systray.exe)由几个不同的窗体 组成,这些窗体是具有各自的窗口类名.显示方式等信息.因此,只要得到有关窗口信息, 即可通

使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏.从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是:开始 按钮.应用程序切换区(Application Switch Bar).任务栏通知区(Notification Area)以 及任务栏时钟.与其它Windows应用程序相同,任务栏程序(systray.exe)由几个不同的窗体 组成,这些窗体是具有各自的窗口类名.显示方式等信息.因此,只要得到有关窗口信息, 即可通

https://zhidao.baidu.com/question/153270855.html delphi中的inpubox,如何能控制它的位置? 10 RT ! 前辈!最好你就把那代码都拿出来吧!我是新手呢!还有那是不是我喜欢在哪个地方弹出来都可以吗? 小樱_花 | 浏览 680 次 问题暂时关闭 发布于2010-05-17 16:22   最佳答案   inputbox封装的是InputQuery函数,你可以查看InputQuery的源代码,发现在InputQuery函数里面动态创建了一

Delphi 2010已于近日由Embarcadero公司发布.作者Kim Madsen作为一名资深的Delphi开发者,在他的博客中谈到了Delphi 2010的新性能.它的使用感受以及对Delphi语言未来的期望.博文如下: Delphi 2010使用的第一感觉是:是时候为它抛弃Delphi 7了. Delphi 2010比以往的Delphi版本都要快,而且它保留了一些Delphi 7的特性,比如可以将旧的条形控件(componentbar)找回.但这同时也带了相关的问题(比如在重启Delp

Delphi 2010已早由Embarcadero公司发布.作者Kim Madsen作为一名资深的Delphi开发者,在他的博客中谈到了Delphi 2010的新性能.它的使用感受以及对Delphi语言未来的期望.博文如下: Delphi 2010使用的第一感觉是:是时候为它抛弃Delphi 7了. Delphi 2010比以往的Delphi版本都要快,而且它保留了一些Delphi 7的特性,比如可以将旧的条形控件(componentbar)找回.但这同时也带了相关的问题(比如在重启Delphi

折腾了好多天,遇到 N 多让人崩溃无语的问题,不过今天终于有些收获了,这是实验的第一版,有些混乱,下一步进行改造细分,先把代码记录在这儿吧. 网上查了很多资料,发现都千篇一律,抄来抄去,很多细节和完整实例都没看到,只有自己一点点研究了,总体感觉 android 下面要显示个图片真不容易啊. 项目主要实现的功能: 异步加载图片 图片内存缓存.异步磁盘文件缓存 解决使用 viewHolder 后出现的图片错位问题 优化列表滚动性能,仅显示可见子项中的图片 无需固定图片显示高度,对高度进行缓存使列表滚

一.调用Excel的方法:一般情况下有两种方法调用Excel:1.  直接使用Delphi自带的组件:在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet.2.动态创建Excel文件:首先创建 Excel 对象,使用ComObj,Excel2000:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' ); 二.导入数据:在程序中,我们可以将查询到的

在编写Delphi的应用程序中,常常涉及对其它Windows应用程序的操作.例如,在数据库的管理系统中,财务人员需要使用计算器,即可调用Windows内含的计算器功能,若每次使用,均通过“开始/程序/附件/计算器”来打开计算器,显然是非常繁琐的,当然可以考虑在桌面上建立一“计算器”的快捷方式,且定义一热键,需要使用计算器时,就按下这个热键来打开“计算器”.但由于“计算器”是一个“非模式”窗口程序,即每运行一次计算器,就会打开一个“计算器”窗口,这样的结果是桌面上出现了几十个“计算器”,不仅大量增

delphi 程序全屏显示无标题栏,覆盖整个屏幕,这个在做工控机或屏保时有用的,所以记下 procedure TMainFrm.FormCreate(Sender: TObject); begin with MainFrm do begin { Position form }        Top := 0 ;        Left := 0 ;        { Go full screen}        BorderStyle := bsNone ;        WindowState

procedure TForm1.WMSysCommand(var Message: TWMSysCommand); var str: string; begin case Message.CmdType of SC_SIZE : str := 'SIZE '; SC_MOVE : str := 'MOVE '; SC_MINIMIZE : str := 'MINIMIZE '; SC_MAXIMIZE : str := 'MAXIMIZE '; SC_NEXTWINDOW : str := '

打开Delphi 7,新建,选择Other->Service Application 修改属性中Name和DisplayName,Name是Service的名称,决定着进程的标识,DisplayName是显示在操作系统里的服务面板里的服务的名称.例如我们将Name修改为NoticeService. 新建一个类,例如名字叫做TNoticeThread,继承自TThread,并重写protected过程Execute.在NoticeService的类定义中添加一个NoticeThread对象. 找到

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Sender: T

        本文发表在中国人民解放军"信息工程大学"学报 2001年第3期.        ActiveX数据对象之事务控制在VB和DELPHI中的应用                     马根峰1   ,  孙艳2  , 宋伟1                       ( 1.重庆邮电学院 ,重庆,400065 :2. 铁道部第十九工程局四处,通辽,028000  )  摘要      事务控制是数据库应用系统中的关键技术之一,本文一开始先对事务控制的概念以及微软的 Ac

delphi 控制音量 静音的类 unit ttSound; interface uses winapi.windows, winapi.Messages; type SimpleSoundControl = class class procedure Mute(); static; class procedure VolumeUp(); static; class procedure VolumeDown(); static; end; implementation { SimpleSound