主要是窗体水平方向与垂直方向的的 居中问题,由于水平方向 没有什么,所以不探讨.而垂直方向由于底部有个工具栏,工具栏自身有个高度,所以垂直方向的居中问题,需要探讨下. 结论: poScreenCenter 是以工作区域的高度为根基进行的 垂直居中.由于软件最大化的话也是只能铺满工作区的.所以从视觉上看,这个可能更好些.看着也是窗体再软件区域内居中. poDesktopCenter 是以整个显示屏的高度(即桌面的高度)为根基(即包括工具栏)进行的垂直居中. unit Unit5; interfac…

使 用 笔 记 1.Inno Setup 是什么?Inno Setup 是一个免费的 Windows 安装程序制作软件.第一次发表是在 1997 年,Inno Setup 今天在功能设置和稳定性上的竞争力可能已经超过一些商业的安装程序制作软件.关键功能:★ 支持现在所有正在使用的 32 位 Windows 版本: Windows 95,98,2000,Server 2003,XP,Me,NT 4.0 (不需要服务包). ★ 支持创建单个 EXE 格式的安装程序,使你的程序可以很方便地在网络上发表…

Windows可以将多个显示器映射为虚拟桌面,使我们可以利用这一点设计出方便工作的应用程序.例如PowerPoint就充分发挥了双显示器的优势(大多数的笔记本电脑都支持),它可以在一个显示器上播放幻灯片,而在另一个显示器上显示备注,可以控制播放的进程,使使用者做商务演说的时候非常等心应手.那么我们怎么开发这种应用程序呢?这篇文章将向你展示如果用Delphi实现使用多显示器的应用程序. Windows还支持克隆显示方式,每个显示器输出同样的内容,这对某些应用也是有意义的.还有些显卡虽然也支持两个显…

(*********************************************************************************) (* *) (* Below is the list of support classes that can be used from within the Pascal *) (* script. There are also three support objects available: MainForm of type *…

Align属性:控制窗体显示时的对齐方式(注:是相对于父窗体的对齐方式.如果该窗体是主窗体则没有父窗体)(与anchor不同在于,anchor定义的对齐是固定到边界的距离) 默认值为alNone.其他值有:alBottom(让该窗体显示在父窗体的底部),alClient(让该窗体填满整个父窗体),alTop(让该窗体显示在父窗体的顶部),alLeft(...左部),alRight(...右部). BorderIcons属性下面的biMinimize和biMaximize属性可以控制窗体是否有最大…

使 用 笔 记https://blog.csdn.net/dongshibo12/article/details/79095971 1.Inno Setup 是什么?Inno Setup 是一个免费的 Windows 安装程序制作软件.第一次发表是在 1997 年,Inno Setup 今天在功能设置和稳定性上的竞争力可能已经超过一些商业的安装程序制作软件.关键功能:★ 支持现在所有正在使用的 32 位 Windows 版本: Windows 95,98,2000,Server 2003,XP,…

http://www.cnblogs.com/del/archive/2008/07/08/1237856.html 非常遗憾 Delphi 的 case 语句不支持字符串, 但我觉得这也可能是基于效率的考量;如果非要在 case 中使用字符串, 也不是不可以变通, 这里提供了五种方法. 本例效果图: 代码文件: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Contr…

主要是觉得在单输入的情况下, 原来InputQuery输入框左边的文本太难看了...... function _InputQuery(const ACaption: string; const APrompt: string; var AValue: string): Boolean; var nForm: TForm; nEdit: TEdit; nTop: Integer; nTextMetric: TTextMetric; begin Result := False; nForm := T…

TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出. TStack 主要有三个方法.一个属性:Push(压栈).Pop(出栈).Peek(查看下一个要出栈的元素);Count(元素总数). 本例效果图: 代码文件: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, S…

TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出. TQueue 主要有三个方法.一个属性:Enqueue(入列).Dequeue(出列).Peek(查看下一个要出列的元素);Count(元素总数). 本例效果图: 代码文件: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dia…

1.计算软件启动了多长时间:用定时器,每分钟触发一次: procedure TFrmMain.tmCheckLegalTimer(Sender: TObject);Var Minutes:LongInt; NewDay:String;begin Minutes:=MyReg.ReadInteger('Minute'); Inc(Minutes); FrmSetUp.lbRunTime.Caption :=Format('%d天 %2.2d小时 %2.2d分钟', [Minutes div 60…

(1)居中显示 Form1->Position = poScreenCenter; (2)无边框显示 Form1->BorderStyle = bsNone; (3)显示透明性 Form1->AlphaBlend = true; Form1->AlphaBlendValue = 127;    //(0---255) (4)背景颜色 Form1->Color = ....;    //自己选…

转载:http://www.cnblogs.com/del/archive/2008/06/03/1212534.html 相似函数: SetWorldTransform 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(…

1.界面窗口如何不显示标题栏? 在Form属性栏里面把BorderStyle的值设为None 2.wchar_t wchar_t是C/C++的字符类型,是一种扩展的存储方式,wchar_t类型主要用在国际化程序的实现中 定义方式: wchar_t *str = "Hello World!!"; 3.C++如何启动一个其他程序 HINSTANCE ShellExecute(                            HWND hwnd,                   /…

转贴自:http://topic.csdn.net/t/20010727/16/212155.html ClientSocket 和ServerSocket几个重要的属性:   1.client和server都有port属性,需要一致才能互相通信   2.client有Address属性,使用时填写对方(server)的IP地址       几个重要的事件:       client:    OnRead事件,当client受到冲击消息时在OnRead事件中可以获得server发送过来消息.  …

ClientSocket组件为客户端组件.它是通信的请求方,也就是说,它是主动地与服务器端建立连接. ServerSocket组件为服务器端组件.它是通信的响应方,也就是说,它的动作是监听以及被动接受客户端的连接请求,并对请求进行回复. ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求,并与每个ClientSocket组件建立单独的连接,进行单独的通信.因此,一个服务器端可以为多个客户端服务. 设计思路 本例包括一个服务器端程序和一个客户端程序.客户端程序…

1)非RTTI方式适用于所有的DELPHI版本 unit untMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Buttons; type TFrmMain = class(TForm) Panel1: TPanel; SpeedButton1: TSpeedButton; procedure btnClick(Sender: TObj…

(* 功能:IniFormState1 保存和读取 窗体的大小2 保存和读取 窗体在屏幕上的位置//让程序第1次出现在屏幕的中心点获取屏幕的中心点POSITION:poScreenCenter //不行*)//implementation//{$R *.dfm} uses IniFiles;//引用IniFiles/// 写入信息到ini文件   procedure WriteformState(section:string;fileName:string;form:TForm); var  I…

附件 http://download.csdn.net/detail/teststudio/6575241 主窗体UNIT unit MainForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls; type TFormMain = class(TForm) Button2: TButt…

Delphi TFindDialog TReplaceDialog对话框的使用 下载地址1: http://download.csdn.net/detail/teststudio/6408383   下面这段代码已经完全的解决Memo的查找对话框 和 替换对话框 功能 的所有功能   查找对话框部件 查找对话框部件为应用程序提供查找对话框,用户可使用查找对话框在文本文件中查找字符串. 可用Execult方法显示查找对话框,如图4.8.应用程序要查找的字符放到FindText属性中.Options…

主要是觉得在单输入的情况下, 原来InputQuery输入框左边的文本太难看了...... function _InputQuery(const ACaption: string; const APrompt: string; var AValue: string): Boolean; var nForm: TForm; nEdit: TEdit; nTop: Integer; nTextMetric: TTextMetric; begin Result := False; nForm := T…

本例效果图: 代码文件: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     procedure Button1Click(Sender: TObject)…

Delphi中平常使用的消息框有四种形式,有ShowMessage.MessageDlg.Application.MessageBox.MessageBox.下面来深入了解下这四种形式的实现和使用.1.ShowMessage 显示一个带"OK"按钮的消息框  使用这个函数可以显示一个简单的带"OK"按钮的消息框,消息框的标题是应用程序的标题名,参数Msg字符串显示在消息框上.其源码如下: procedure ShowMessage(const Msg: string…

关于Delphi中产生的文件    编辑阶段: pas/单元文件,dpk/组件包文件,dpr/工程文件,dfm/窗体文件    编译阶段: dcu/单元编译文件,dcp/Delphi Compile package    连接阶段: exe,dll,bpl/Borland package library    运行阶段 使用Delphi编程中需要掌握的四大语言    A. Object Pascal   B. SQL   C. HTML/XML   D. UMI Delphi发展的两个主要技术…

Delphi 通用程序自动更新升级:http://www.delphitop.com/html/wangluo/2968.html https://www.cnblogs.com/hnxxcxg/p/4105337.html delphi 让程序自己更新本程序:http://www.delphitop.com/html/chengxu/1270.html 1)服务端IIS网站上创建新的虚拟路径,给新创建的虚拟路径增加MIME类型:.bpl..ini等. 2)设置update.ini文件版本号配置…

//poScreenCenter时,窗体会显示到主显示器的中央 MainForm.Position := poScreenCenter; function TGAEAMainForm.GetWorkArea(var R : TRect) : Boolean;var I : Integer;begin Result := False; for I := 0 to Screen.MonitorCount -1 do if Screen.Monitors[I].Primary then begin R…

来自:https://yq.aliyun.com/wenji/88428 通过修改VCL源码实现自定义输入对话框 在BCB中有两个函数可以实现输入对话框:InputBox和InputQuery,其实InputBox也是调用了InputQuery,这个函数有几个缺点: (1).输入对话框上的按钮是英文的. (2).不能实现星号密码的效果. 但在实际编程中经常会遇到这样的问题.全是中文的界面和提示,可是在输入对话框中却是英文的按钮,显的有些不协调,而且有时在Win2k下做的程序,换在Win98下的时…

; 脚本由 Inno Setup 脚本向导 生成! ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档! #define MyAppName "RemoteCard" #define MyAppVersion "1.0" #define MyAppPublisher "RemoteCard" #define MyAppURL "http://www.example.com/" #define MyAppExe…

本例效果图: 代码文件: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComCtrls; type   TForm1 = class(TForm)     ListView1: TListView;     Button1: TButton;     CheckBox1: TCheckBox;…

制作欢迎界面的代码,大家参考 登陆窗体命名為:loginform.找到工程文件(Project -> View Source),找到如下代碼部分:begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.CreateForm(Tloginform, loginform);   Application.Run;//到此,程序執行end.登陸窗體可以設置成在程序執行前創建:begin …