delphi
文章平均质量分 78
Hustudent20080101
MFC Qt 瑞萨 ARM Linux
展开
-
TD2V.GetScreen(Bmp: TBitmap; GetCur: Boolean = false);
procedure TD2V.GetScreen(Bmp: TBitmap; GetCur: Boolean = false);var Dc : HDC; MyCanvas : TCanvas; MyRect : TRect; DrawPos : TPoint; MyCursor转载 2012-10-17 09:59:39 · 774 阅读 · 0 评论 -
procedure of object(一个特殊的指针类型)
procedure of object(一个特殊的指针类型) 理论: //适用于实现不是某一特定过程或函数 type TNotifyEvent = procedure(Sender: TObject) of object; 首先:procedure 也是类型,可以理解为过程类型,定义过程的转载 2012-12-04 17:41:40 · 991 阅读 · 0 评论 -
delphi中string转array of char
delphi中string转array of char分类: Delphi小酌 2008-10-07 13:50 2724人阅读 评论(1) 收藏 举报 在delphi中如何将string转成array of char? 网上的例子说用for循环,一个个将字符赋值给char数组; 系统带的有个函数的,function StrLCopy(Dest: PChar; co转载 2012-11-21 19:58:18 · 1784 阅读 · 0 评论 -
动态更改屏幕分辨率
动态更改屏幕分辨率 有许多小工具可以在不重新启动Windows的条件下,动态更改屏幕分辨率。你是不是也想自己动手做一个呢?请在interface段中加入下面一句 function Resolution(X,Y:word):boolean; 然后在implementation段中写入如下代码: function Resolution(X,Y:word):boo转载 2012-11-22 11:11:04 · 907 阅读 · 0 评论 -
历史上旧版Delphi不支持静态变量.只能用Unit的全局变量+类函数来模拟
TTestClass=class public class function Double(i:integer):integer; class procedure Msg(s:string); end;var Form1: TForm1;implementation{$R *.dfm}class function TTestClass.Double(i转载 2012-12-04 16:24:06 · 1086 阅读 · 0 评论 -
delphi 集合的用法
delphi 集合的用法 (2012-10-03 07:50:20)转载▼标签: 杂谈分类: delphidelphi基础补充 1 开域语句 在面向对象的程序代码中,嵌套对象的现象十分普遍,我们经常会去引用很深层的对象。如:form1.canvas.font。当对一个深层对象设多个属性的时候转载 2012-12-08 08:45:06 · 1219 阅读 · 0 评论 -
ParamCount ParamStr ExtractFileExt(picPath)
procedure TForm1.FormCreate(Sender: TObject);var picPath:string; ext:string;begin//showmessage(inttostr(ParamCount)+ParamStr(1));if ( ParamCount = 0 ) thenbegin //Application.Terminate; exi原创 2012-12-08 08:45:15 · 744 阅读 · 0 评论 -
Delphi 中的 procedure of object
Delphi 中的 procedure of object其实要了解这些东西,适当的学些反汇编,WINDOWS内存管理机制,PE结构,看下李维的VCL架构剖析可以很好理解type TMyEvent = procedure of object;这是一种数据类型的定义,他定义了一个可以在类中使用的函数类型区别于type TMyProc = procedu转载 2012-12-04 17:26:22 · 1208 阅读 · 0 评论 -
type VP=procedure; VPOfObj=procedure of object;
type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private class procedure hello; procedure helloNonClass; { Private declarations } public原创 2012-12-04 17:59:29 · 919 阅读 · 3 评论 -
TMyProc=procedure of Object;obj:=Txxx.Create;ProcPtr:= obj.test;
type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure BBB(I: Integer); procedure CCC(I: Integer); procedur原创 2012-12-04 17:43:36 · 21126 阅读 · 0 评论 -
获取当前鼠标指针位置文本
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, XPMan;type TForm1 = class(TForm) XPManifest1: TXPManife转载 2012-11-08 11:48:40 · 2085 阅读 · 0 评论 -
delphi的消息对话框,输入输出
delphi的消息对话框,输入输出From:http://hi.baidu.com/ilovesafety/blog/item/39eb4afc72d6e2f6fd037f79.html对话框是Windows操作系统中程序与用户沟通的一种常见的交互方式,对话框可以向用户提供当前程序的运行状况,也可以接受用户输入的信息,在 Delphi中,对话框函数大体上可以分为两种转载 2012-11-28 11:30:44 · 1714 阅读 · 2 评论 -
bmp图像复制,剪切,粘贴等
实现了复制,剪切,粘贴等 uses Clipbrd; private { Private declarations } StartX,StartY,EndX,EndY:Integer; MouseDown:Boolean; procedure DrawFrame; procedure DrawClipFra转载 2012-11-29 20:19:15 · 1575 阅读 · 0 评论 -
有没有可能在oncreate里面加上form.close
有没有可能在oncreate里面加上form.close [问题点数:20分,结帖人beyondjay]beyondjay初学者等级:结帖率:96.69%楼主 发表于: 2004-06-07 11:54:35我试过了在oncreate里面好像close没有用阿,release可以,但是进程还是在运行的。我现在想在oncreate的时候做一些判断,但不满足条件的时转载 2012-11-29 16:00:48 · 643 阅读 · 0 评论 -
如何在运行程序时使窗体不可见
收藏 如何在运行程序时使窗体不可见,只留下系统托盘区的程序图标? [问题点数:0分]hans222小李等级:结帖率:100%楼主 发表于: 2003-05-15 19:54:18我是一个delphi初学者,我参照一编关于“CDROM软开关”的文章,写了下面这个unit1.pas代码如下: unit Unit1;interface转载 2012-11-29 16:02:09 · 1012 阅读 · 1 评论 -
delphi 函数指针
delphi 函数指针Pascal 中的过程类型与C语言中的函数指针相似,为了统一说法,以下称函数指针。函数指针的声明只需要参数列表;如果是函数,再加个返回值。下面讲解指向非对象(一般的)函数/过程的函数指针。例如声明一个过程类型,该类型带一个通过引用传递的整型参数:type IntProc = procedure (var Num: Integer); //IntProc转载 2012-12-04 11:25:25 · 724 阅读 · 0 评论 -
delphi使用可变参数函数的方法 (2012-10-08 12:47:01)
delphi使用可变参数函数的方法 (2012-10-08 12:47:01)转载▼标签: 杂谈分类: 杯男日记貌似没有这样的指令。不过,delphi可以用[a,b,c……]的形式表示数组,所以就有一个办法了,比如:procedure a1(b: array of integer);va转载 2012-12-04 11:28:04 · 1391 阅读 · 0 评论 -
[转]delphi 变参函数:array of const
[转]delphi 变参函数:array of constarray of constDelphi的Format函数大家都用得很多,第二个参数用着确实很方便。最近在数据库开发应用中需要自己创建一个带array of const参数的函数,对于常用的类型String,Integer,Pointer处理都没什么问题,但当用到Widestring类型时却出错,摸索了一上午,感觉获转载 2012-12-04 11:36:58 · 639 阅读 · 0 评论 -
DefaultExt = '*.jpg'
object SaveDialog1: TSaveDialog DefaultExt = '*.jpg' Filter = '*.jpg|*.jpg''*.bmp|*.bmp|*.jpg|*.jpg' Left = 24 Top = 160 end{$R *.res}begin Application.Initialize; Applicatio原创 2012-12-08 08:45:42 · 614 阅读 · 0 评论 -
delphi 大小写字符串转换
delphi 大小写字符串转换分类: delphi2010-12-20 10:09 293人阅读 评论(0) 收藏 举报UpperCase 返回转换大写字符串拷贝 Function UpperCase(const S : string) : string LowerCase 转换成小写转载 2012-12-08 08:45:26 · 7394 阅读 · 0 评论 -
SetWindowRgn( Handle, rgn, true ); // 设置视窗范围
var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var rgn:HRGN;begin BeginPath(Canvas.Handle); // 开始绘画路径,在指定的Canvas SetBkMode( Canvas.Handle, TRA转载 2012-12-24 17:36:41 · 928 阅读 · 0 评论 -
Visual C++与Delphi/C++Builder之比较
回复于: 2001-06-17 19:41:00我觉得没有必要老讨论哪个工具好,反正尺有所长,寸有所短,主要看你用来干什么以下摘自http://www.vchelp.net/cgi-bin/forum/yousay/v.pl?25Visual C++与Delphi/C++Builder之比较 作者:紫云英 JasonCrazy@sina.com ht转载 2012-12-16 21:19:30 · 1178 阅读 · 0 评论 -
delphi 系统长文件名与dos形式短文件名的相互转换
delphi 系统长文件名与dos形式短文件名的相互转换作者:admin 来源:未知 日期:2010/5/26 11:30:11 人气: 标签:QQ空间 新浪微博 腾讯微博 腾讯朋友 QQ收藏 百度空间 百度贴吧 更多系统长文件名与dos形式短文件名的相互转换长文件名格式: C:\Program Files\Common Files\Syst转载 2013-03-21 09:45:20 · 1532 阅读 · 1 评论 -
利用RegisterDeviceNotification监视usb设备
利用RegisterDeviceNotification监视usb设备 unit U_Usb;interfaceuses Windows, Messages, SysUtils, Classes, Forms;type PDevBroadcastHdr = ^DEV_BROADCAST_HDR; DEV_BROADCAST_HDR = packed re转载 2013-04-15 13:32:40 · 9064 阅读 · 0 评论 -
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 |字号 订阅这两天把一个使用Delphi2007成功升级到了Delphi2010。升级途中很艰辛,总结了 以下经验与大家分享。另外,D7使用的第三方组件,由于官方没有发布For Delphi2010的更新,修改的第三 方组件列表见文章尾部。1,PChar因为转载 2013-04-15 13:58:41 · 1220 阅读 · 0 评论 -
Delphi获取进程的命令行参数
您现在的位置:首页 >> 算法基础 >> 信息正文Delphi获取进程的命令行参数2009-4-16 15:20:35 来源: 转载 作者:wr960204 访问:909 次 被顶:3 次 字号:【大中 小】type UNICODE_STRING = packed record Length: Word; MaximumLength: Word;转载 2013-05-05 14:39:44 · 2255 阅读 · 0 评论 -
delphi根据进程ID获取进程路径
delphi根据进程ID获取进程路径unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, psapi;type TForm1 = class(TForm)转载 2013-05-05 15:25:55 · 1675 阅读 · 0 评论 -
如何将C/C++程序转译成Delphi(五)
如何将C/C++程序转译成Delphi(五)发表日期:2006-2-41. Anatomy of a C HeaderBack to contents## to do2. Conversion Basics2.1. NamingThe naming in converted header files should follow转载 2013-05-05 14:54:09 · 1137 阅读 · 0 评论 -
.NET、C#和ASP.NET三者之间的区别 使用 IntraWeb (9) - JavaScript
.NET、C#和ASP.NET三者之间的区别作者:http://www.5itjob.com 发布时间:2014/8/1 12:19:581、.NET是一个平台,一个抽象的平台的概念。 .NET平台其本身实现的方式其实还是库,抽象层面上来看是一个平台。本人理解的.NET核心就是.NET Framwork。 .NET Framework包括两个关键组成元素:a.Common Lan转载 2016-08-25 09:18:04 · 589 阅读 · 1 评论 -
label j;goto j;
type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations }转载 2012-12-27 09:16:03 · 617 阅读 · 0 评论 -
模拟鼠标点击
object Form1: TForm1 Left = 192 Top = 115 Width = 696 Height = 479 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height =原创 2012-12-27 09:31:23 · 827 阅读 · 0 评论 -
定时模拟键盘按键
object Form1: TForm1 Left = 192 Top = 114 Width = 497 Height = 292 Caption = #33258#21160#25353#38190#8212#8212#23567#24069#30340#21019#24847 Color = clBtnFace Font.Charset = DEFA原创 2012-12-27 09:28:16 · 1933 阅读 · 0 评论 -
Clipboard
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; Ima转载 2012-12-27 09:13:32 · 763 阅读 · 0 评论 -
拖动图标
object Form1: TForm1 Left = 192 Top = 107 Width = 381 Height = 265 Caption = #25302#21160#22270#26631#25171#24320#25991#20214#25110#38142#25509 Color = clBtnFace Font.Charset = DE原创 2012-12-27 09:23:45 · 734 阅读 · 0 评论 -
position
ActiveX: Chartfx1: TChartfx; VSSpell1: TVSSpell; F1Book1: TF1Book; VtChart1: TVtChart;============================Additional: BitBtn1: TBitBtn; SpeedButton1: TSpeedBu原创 2012-12-27 09:10:34 · 1941 阅读 · 0 评论 -
write readln(tempStr); writeln(tempStr,'---!');
program Project1;{$APPTYPE CONSOLE}uses SysUtils;vartempStr : string;tempInt : Integer;begin { TODO -oUser -cConsole Main : Insert code here } write('请输入您的大名:') ; readln(tempStr);转载 2012-12-27 09:18:39 · 742 阅读 · 0 评论 -
Form 任务栏标签
type TForm1 = class(TForm) procedure CreateParams(var Para: TCreateParams);override; private { Private declarations } public { Public declarations } end;var Form1: TForm1;imp转载 2012-12-27 09:41:48 · 611 阅读 · 0 评论 -
dll
library MyDll;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL原创 2012-12-27 09:02:15 · 552 阅读 · 0 评论 -
ScreenShot 连带鼠标的抓屏单元
unit ScreenShot;interfaceuses Windows, SysUtils, Classes, Graphics, Jpeg; function CatchScreen(const FileName: string):boolean;implementationfunction CatchScreen(const FileName: string):b转载 2012-12-27 09:20:36 · 817 阅读 · 0 评论 -
使用 IntraWeb (45) - 活用 IntraWeb
使用 IntraWeb (45) - 活用 IntraWebasp.net 刚开始时, 也是拖拉控件, 但后来有了 MVC、xNext.换个思路使用 IntraWeb 吧:界面全部用 html+js+css 实现(有些会是用 Delphi 动态生成), 然后用 js 通过 Ajax 调用 Delphi 的方法.测试程序要使用的模板 IWForm1.html:转载 2016-10-30 19:33:20 · 1056 阅读 · 0 评论