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
Delphi是Borland公司提供的一种全新的WINDOWS编程开发工具。由于它采用了具有弹性的和可重用的面向对象Pascal(object-orientedpascal)语言,并有强大的数据库引擎(BDE),快速的代码编译器,同时又提供了众多出色的构件。受到广大编程人员的青睐。在众多的编程语言(如VB,PowerBuilder,Powerpoint等)中脱颖而出。其中一个DELPHI强于其他编程语言(如VB4.0)的地方就是在DELPHI中可自定义消息,并可直接处理消息。这对于那些希望编写自...
GDI+ 实现透明水印和文字 最近给《JPEG浏览缩放器》增加了水印功能,在设计的过程中,参考了网上的文章,但是发现文章使用的GDI+ API封装包不是我现在使用的那一套,目前DELPHI使用的GDI+ API封装包有两套,一套包括以DirectDraw.*、Gdipapi.*、Gdipobj.*、 Gdiputil.*为文件名,另一套以GdipExport.*、Gdiplus.*、GdipTypes.*、GdipUtil.*为文件名,我使用的是前者,文章所用的是后者,于是将文章原代码根据我用的那套GDI+ API封...
interfaceusesClasses, SysUtils;typeTParallelProc = reference to procedure(i: Integer; ThreadID: Integer);TParallel = class(TThread)privateFProc: TParallelProc;FThreadID: Integer; //current thread IDprotectedprocedure Execute; override;function GetNextValue: Integer;publicconstructor Create;destructor Destroy; override;property Proc: TParallelProcread FProc write FProc;class varCurrPos: Integer; //...
usesWindows;procedure TformLogin.FormCreate(Sender: TObject);beginSetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));
end; Delphi XE2通过编译原文:http://www.cnblogs.com/LceMeaning/p/4213828.html
procedure GetFilenames(sPath, sFilename: String; AList: TStrings);//功能描述: 列出sPath目录中(不含子目录)所有文件名符合sFilename规则的文件名//入口参数:// sPath - 目录路径// sFilename - 文件名//出口参数:// AList - sPath目录中所有符合的文件名被添加到了这一列表中var SR : TSearchRec;begin if FindFirst(sPath + sFilename, faReadOnly ...
procedure imgListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
privateprocedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST;procedure TfrmStartHit.WMNCHITTEST(var Msg: TWMNCHITTEST);
constcOffset = 10;
varvPoint: TPoint;
begininherited;vPoint := ScreenToClient(Point(Msg.XPos, Msg.YPos));if PtInRect(Rect(0, 0, cOffset, cOffset), vPoint) thenMsg.Re...
{**********************************************************************API函数 AnimateWindow 使用:函数功能:窗体显示和隐藏时产生特殊的动画效果;可以产生两种类型的动画效果: 滚动动画 和 滑动动画函数原型:BOOL AnimateWindow(HWND hWnd, DWORD dwTime, DWORD dwFlags)参数说明:hWnd 指定产生动画效果的窗体的句柄; dwTime 指定动画持续的时间(以为秒计算),完成一个动画的标准时间 ...
之前我们已经给广大爱好者或程序员朋友们,带来了硬件版的或者说物联网版本的Hello World C++Builder版的程序源码和教学资料,让大家对硬件控制带来一个崭新的认识。今天我们再出一套兄弟版本Delphi编程语言的教程与实例源代码。
Delphi的开发与C++Builder开发环境几乎相同,毕竟是一个祖宗嘛。目前最新的开发工具,称为RDA Studio,整个开发环境,集成了C++Builder和Delphi两种开发工具,其实只是语言不同,控件使用全部一样,C++...