随笔分类 -  Delphi-VCL-Form

摘要:记得曾写过类似功能,但由于对Delphi数据类型不清楚,要花不少代码去处理中文被切半而出现乱码的尴尬。后来知道只需把字符串定义成 WideString 即可解决半个中文的问题了。 实现过程:不停地剪切标题的第1个字符放到最后一位,OK。 1、定义一个全局变量保存显示到标题栏的字符串varstrScr 阅读全文
posted @ 2018-12-20 21:57 findumars 阅读(394) 评论(1) 推荐(0) 编辑
摘要:注:本文主要是讨论delphi程序启动时和退出时的执行顺序,期间有些知识来源于Delphi帮助,有些来自《Delphi7程序设计教程》(这本书只告诉我有initialization 和 finalization 这两个关键字,但是没讲明白)(唉,现在的书只讨论框框架架,不讨论细节,写出来的东西让你看 阅读全文
posted @ 2018-10-09 00:59 findumars 阅读(1192) 评论(0) 推荐(0) 编辑
摘要:InputBox等窗体的字体大小设置方法 Graphics.DefFontData.Height:=48; Graphics.DefFontData.Style:=[fsBold,fsItalic, fsUnderline]; inputbox('aa','aa','dd'); Graphics.D 阅读全文
posted @ 2017-07-10 21:05 findumars 阅读(1505) 评论(0) 推荐(0) 编辑
摘要:以下设置可实现窗体无最大化,并且不能拖大拖小BorderIcon 设为 biMax[False] biHelp [False]BorderStyle 设为 bsSingle 参考 可以通过设置窗体的属性以及编程的方法,限制和控制窗体的变化。如让窗体不能最小化、最大化. 1.通过属性设置方法使用For 阅读全文
posted @ 2017-07-10 20:49 findumars 阅读(1529) 评论(0) 推荐(0) 编辑
摘要:The z-order of a window indicates the window's position in a stack of overlapping windows. This window stack is oriented along an imaginary axis, the 阅读全文
posted @ 2017-07-06 20:40 findumars 阅读(334) 评论(0) 推荐(0) 编辑
摘要:在Delphi 7下要制作系统托盘,只能制作一个比较简单的系统托盘,因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本。定义如下: 123456789 _NOTIFYICONDATAA = record cbSize: DWORD; Wnd: HWND; uID: UI 阅读全文
posted @ 2017-06-21 23:29 findumars 阅读(1824) 评论(0) 推荐(0) 编辑
摘要:在有多个Form窗体时可以体现出来.用close是只关闭本窗体,而用Application.terminate是关闭整个程序,包括所有窗体.(1)当Close是一个主窗体时,程序会退出。Close会发生FormClose事件,FormCloseQuery事件。close,只是针对窗体。主窗体clos 阅读全文
posted @ 2017-06-14 22:17 findumars 阅读(602) 评论(0) 推荐(0) 编辑
摘要:type TForm2 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params:TCreateParams); override; 阅读全文
posted @ 2017-04-20 05:46 findumars 阅读(292) 评论(0) 推荐(0) 编辑
摘要:Action 一些组件标识与组件相连接的活动对象Align 一些组件确定组件在父类组件区内的对齐方式Anchors 大部分组件说明与组件连接的窗体的位置点AutoSize 一些组件说明组件是否可根据内容确定自己的大小BiDiMode 所有组件为从右向左写的语言提供支持Borderwidth 窗口化组 阅读全文
posted @ 2017-04-19 18:06 findumars 阅读(470) 评论(0) 推荐(0) 编辑
摘要:1.透明问题。 要重新调整界面确实很麻烦,以前用DELPHI开发的界面都很土,和WEB真是没办法比。(我以前用的是DELPHI7),现在回想起来,DELPHI难做的原因是:没有透明控件。所有控件都是不透明的,并且大部分控件就是灰色的,一放到窗体上,就像一块膏药一样贴在上面。即使界面上放几副图片也难以 阅读全文
posted @ 2017-04-14 23:03 findumars 阅读(3023) 评论(0) 推荐(0) 编辑
摘要:1.所有程序最小化 uses ComObj; var shell : OleVariant; begin shell := CreateOleObject('Shell.Application'); shell.minimizeAll; end; 2.最小化其他程序 spy++ 查找要最小化的程序c 阅读全文
posted @ 2017-04-14 22:41 findumars 阅读(1167) 评论(0) 推荐(0) 编辑
摘要:API函数 function GetSystemMenu(hWnd:HWND;bRevert:BOOL):HMENU;stdcall; 参数说明: hWnd: 所要取得系统菜单句柄的目标窗口句柄。 bRevert:是否修改原始菜单。 返回一个HMENU型的菜单句柄。 通过GetSystemMenu得 阅读全文
posted @ 2017-04-14 22:35 findumars 阅读(1665) 评论(1) 推荐(0) 编辑
摘要:1.MouseMove事件中加入:// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入:// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE( 阅读全文
posted @ 2017-02-22 20:06 findumars 阅读(472) 评论(0) 推荐(0) 编辑
摘要:procedure TForm2.FormCreate(Sender: TObject);begin perform(WM_SIZE,SIZE_MAXIMIZED,0);end; http://blog.csdn.net/fkedwgwy/article/details/4170099 阅读全文
posted @ 2017-02-07 22:39 findumars 阅读(414) 评论(0) 推荐(0) 编辑
摘要:好多好多解决方案: I am doing something similar in one of my applications and this function works for me in xp/vista/w7: Another solution is not to steal focus 阅读全文
posted @ 2017-02-03 01:44 findumars 阅读(1842) 评论(0) 推荐(0) 编辑
摘要:写文章的时候 脑子有点乱 [delphi] view plain copy unit uMainForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialog 阅读全文
posted @ 2017-02-01 06:33 findumars 阅读(449) 评论(0) 推荐(0) 编辑
摘要:最近在Delphi开发中用到了无边框窗体显示时,无法在任务栏使用右键弹出菜单的情况,经过整理,通过以下方法可以使右键菜单出现: procedure Tfrm_Base.InitSysMenu;var WindowStyle: Integer;begin WindowStyle := GetWindo 阅读全文
posted @ 2017-01-30 23:01 findumars 阅读(564) 评论(0) 推荐(0) 编辑
摘要:现在很多的应用程序都有这样一种功能,当用户选择最小化窗口时,窗口不是象平常那样最小化到任务栏上,而是“最小化”成一个任务栏图标。象FoxMail 3.0 NetVampire 3.0等都提供了这样的功能。实现这样的功能实际上并不复杂,在窗口最小化时,窗口会发出WM_SYSCOMMAND消息,你只要需 阅读全文
posted @ 2017-01-27 01:29 findumars 阅读(2229) 评论(0) 推荐(0) 编辑
摘要:Delphi中标准控件是不支持png图片的,据说从Window2000后增加gdiplus.dll库处理更多的gdi图像,其中包括png。 关键的几个api GdipCreateBitmapFromFile(),从文件载入图像(不单只Bitmap) GdipCreateBitmapFromStrea 阅读全文
posted @ 2017-01-24 23:46 findumars 阅读(2806) 评论(0) 推荐(0) 编辑
摘要:type TMainWindow = packed record ProcessID: THandle; MainWindow: THandle; end; PMainWindow =^ TMainWindow; function IsMainWindow(AHandle: THandle): Bo 阅读全文
posted @ 2017-01-24 23:11 findumars 阅读(2522) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示