第一步：在要实现快捷键的窗体中更改属性“KeyPreview”为True；第二步：在要实现快捷键的窗体中的OnKeyPress事件中填入一个过程名称（在Object Inspector中），填写好后回车就可转入事件代码填写部分；第三步：填写事件处理过程，下面给出一个例子：procedure TFrmMain.KeyPress(Sender: TObject; var Key: Char);beginif key in [‘ ‘] then begin B_Play_Pause.Click; end;end;以上的例子实现了“在一个激活的窗体中，按下...
在网上查了许多资料去论述如何在dephi中去实现组件随窗口大小的变化而变化，然都不尽如人意。有人说用组件的align + anchors 这两个属性去控制，但是我用了之后，让我大惊失色。把anchors属性下面的四个值都变为true.如果用户用鼠标去拖动窗口，那么窗口上的组件像是中了夺命书生的面目全非脚一样，基本上就没有所谓的五官之态。下面就介绍我的方法，同样本人的方法也是看了网友们的资料才得以完成的。(1) 下载TFormResizer组件我用...
MD5 与 SHA 在 Delphi 中函数实现。为了加密密码，必须使用一种算法，查询资料，比较好的方法是使用：MD5等算法，参考：Delphi XE8 支持MD5第一种方式是：引用 System.Hash 中的 THashMD5， （或者 THashSHA1，THashSHA2） 参考 官方文档。 http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Hash 简单用法： hashmd5 := THashMD5.Create.GetHashString(‘abc‘); ‘abc’ 是你想加...
IInterface表示申明了一些函数，自己本身没有实现部分，需要由继承它的类来实现函数uSayHello代码如下unit uSayHello;interfaceusesSysUtils,Windows,Messages,Classes,Graphics,Controls,Forms,Dialogs;type// IInterface表示申明了一些函数，自己本身没有实现部分，需要由继承它的类来实现函数ISpeakChinese = interface(IInterface)function SayHello: string;end;// IInterface表示申明了一些函数，自己本身没有实现部分，需要...
procedure TForm1.Button1Click(Sender: TObject);var FwMgr,Profile,FwApp: variant;begin FwMgr := CreateOLEObject(‘HNetCfg.FwMgr‘); Profile := FwMgr.LocalPolicy.CurrentProfile; FwApp := CreateOLEObject(‘HNetCfg.FwAuthorizedApplication‘); FwApp.Name :=‘我的测试‘; //显示名字 FwApp.ProcessImageFileName := Application.ExeName; //要通过的程序 FwApp.Enabled := true; Profile.Authoriz...
摘要:在Delphi的VCL库中，为了使用以及实现的方便，应用对象Application创建了一个用来处理消息响应的隐藏窗口。而正是这个窗口，使得用VCL开发出来的程序存在着与其他窗口不能正常排列平铺等显得有些畸形的问题。本文通过对VCL的深入分析，给出了一个只需要对应用程序项目文件作3行代码的修改就能解决问题的方案，且不需要原有的编程方式作任何改变。一、引言 用Delphi所提供的VCL类库编写的Windows应用程序，有一个明显不同于...
千千静音的悬浮式卡拉ＯＫ字幕，大家一定觉得不错吧，其实用Delphi，你也可以很容易的做得到。首先我们在Delphi中新建一个700*130左右的窗体，上面放置两个Image控件，Image控件的Align=alClient,使它们铺满窗口，唯一不同的是，Image1的Visuble=ture,用于前台显示字幕，Image2的Visible=false,用于后台绘制，还要用到一个Timer控件,Interval=100。 要使字幕悬浮在Windows桌面上显示，第一要求窗体是透明的，只显示字幕；...
VCL里面的的实现program ZhouFamily;usesVcl.Forms,Winapi.Windows,FrmZhouFamilyMainU in‘FrmZhouFamilyMainU.pas‘{FrmZhouFamilyMain} ,SplashFormU in‘SplashFormU.pas‘{SplashForm} ,DmU in‘DmU.pas‘{DM: TDataModule};varTimestart, timeend: dword;beginApplication.Initialize;Application.MainFormOnTaskbar := True;SplashForm := TSplashForm.Create(Application);SplashForm.Show;SplashForm.Update;Timestart :=...
Delphi利用Windows GDI实现文字倾斜 https://my.oschina.net/u/582827/blog/232720unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;typeTForm1 = class(TForm)procedure FormPaint(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm...
源：Delphi 悬浮窗口、浮动窗口的实现 浮动窗体的实现 http://blog.tianya.cn/blogger/post_show.asp?BlogID=68097&PostID=806089需要一个这样的窗体:a:没有标题栏; b:可以改变大小; c:不在任务栏上显示图标; d:如果不是主窗体,它的最小化不受主窗体的限制; e:在最顶端显示处理:a:不在任务栏出现的,只要设置窗体的属性为ToolWindow就可以了.b:要想使窗体脱离主窗体的限制,必须修改它的ParentWnd,使用SetParent显然有些问题.可以通过...
之前学习了用API实现，让我们再学习下用DELPHI的TThread类。先新建一个普通的工程，再新建一个线程类File>>New>>Othre>>Delphi File>Thread Object，取个名字，DELPHI会自动生成一个单元，我们只需往里简单添加功能代码，和在要使用的单元里实例引用即可。为了节省篇幅，现把TMyThread类集成主窗体单元里，在窗体单元里声明类也是可以的。例：用工作线程在窗体输出0~500000的数字。 1 unit Unit1;2 3 interface4 5 uses6 Windows...
unit Android.JNI.Toast;// Java bridge class imported by hand by Brian Long (http://blong.com)interface{$IFDEF ANDROID}uses Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText;{$ENDIF}{$IFDEF ANDROID}type TToastLength = (LongToast, ShortToast); JToast = interface; JToastClass = interface(JObjectClass) [‘{69E2D233-B9D3-4F3E-B882-474C8E1D50E9}‘] { P...
Delphi中多线程用消息实现VCL数据同步显示Lanno Ckeeke 2006-5-12概述：delphi中严格区分主线程和子主线程，主线程负责GUI的更新，子线程负责数据运算，当数据运行完毕后，子线程可以向主线程式发送消息，以便通知其将VCL中的数据更新。实现：关键在于消息的发送及接收。在消息结构Tmessage中wParam和lParam类型为Longint，而指针类型也定义为Longint，可以通过此指针来传递自己所感兴趣的数据。如传递字符数组：数组定义：const M...
type TMenuHintWindow = class(THintWindow) private FTimerShow: TTimer; FTimerHide: TTimer; procedure TimerShowTimer(Sender: TObject); procedure TimerHideTimer(Sender: TObject); procedure ApplicationHint(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; constructor TMenuHintWindow.Create(AOwner: TComponent);begin i...
Delphi 7下使用VT实现树型列表结合控件 原文：http://www.cnblogs.com/LittleTiger/p/5003042.html