TObject

ShellApi 列举正在运行的程序

{在interface下面type上面输入} const MY_MESSAGE = WM_USER + 100; procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:36

SendMessage 关闭计算器

procedure TForm1.Button1Click(Sender: TObject);  var   HWndCalculator : HWnd; begin
·2015-10-31 10:36

SendMessage 设置TMemo组件的边界

//设置TMemo组件的边界  procedure TForm1.Button1Click(Sender: TObject); var   area: TRect
·2015-10-31 10:36

while do 计算100以内的奇数平方和

integer; //i,sum为整形数值 k为最后一个奇数为 implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:35

SendMessage 循环按1 到6 F1到F8_2

//循环按1 到6 F1到F8  procedure TForm1.Timer1Timer(Sender: TObject); var   wmHwnd:HWND;
·2015-10-31 10:35

while 循环语句

//while循环语句 { while True do begin ... end; } procedure TForm1.Button1Click(Sender: TObject);
·2015-10-31 10:35

if 条件语句

procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:35

SendMessage 关闭计算器_2

procedure TForm1.Button1Click(Sender: TObject);  var   HWndCalculator : HWnd; begin
·2015-10-31 10:35

SendMessage 启动屏幕保护程序_2

procedure TForm1.Button1Click(Sender: TObject);  var     handle:integer;
·2015-10-31 10:35

TThread中文注释

类关系 TObject 在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。
·2015-10-31 10:21

Delphi中Self和Sender的区别

它代表触发事件处理程序的构件，如在上例中，Sender就指Button2，有了Sender参数，可以使多个构件共用相同的事件处理程序，如下例：Procedure Tform1.Buttonclick(Sender:Tobject
·2015-10-31 10:21

POS打印机一些特殊控制

procedure TForm1.Button1Click(Sender: TObject);varRPrinter:TextFile;i:integer;begin {设置打印机}Assignfile
·2015-10-31 10:20

delphi 判断网络连接

uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState
·2015-10-31 10:20

DBCtrlGrid

procedure TForm1.FormShow(Sender: TObject); begin ADOTable1.Open; end; procedure TForm1.DBCtrlGrid1PaintPanel
·2015-10-31 10:18

给同一类型窗口发消息

//方法一 procedure TForm1.Button1Click(Sender: TObject);var  H_window: HWND;  Text: array[0..255
·2015-10-31 10:18

检测用户超过5分钟没有操作键盘或鼠标+函数

gt;5秒后提示，但只有一次============================================ procedure TForm1.Timer1Timer(Sender: TObject
·2015-10-31 10:18

Delphi中给活动控件画上矩形边框

{private procedure DrawFocusRectangle(sender: TObject); public { Public declarations }
·2015-10-31 10:18

流压缩 解压 Zlib

procedure TForm1.Button3Click(Sender: TObject); var beforeMS,afterMS:TMemoryStream; {beforeMS 是要压缩的流
·2015-10-31 10:17

复制一个文件BlockRead,BlockWrite

procedure TForm1.Button1Click(Sender: TObject); var FromF,ToF: file; NumRead,NumWritten: Integer
·2015-10-31 10:16

两个程序 通过共享内存 传递数据 CreateFileMapping

:TDateTime; note:array[0..50] of Char; end; {程序一 创建 共享内存}procedure TForm1.Button2Click(Sender: TObject
·2015-10-31 10:16

GetCursorPos WindowFromPoint GetlassName

procedure TForm1.Timer1Timer(Sender: TObject);var  pt: TPoint;  arr: array[0..254] of Char;
·2015-10-31 10:16

窗体接受拖拽

uses ShellAPI;procedure TForm1.FormCreate(Sender: TObject);begin DragAcceptFiles(Handle, True);end;procedure
·2015-10-31 10:16

list使用测试

{list使用 自定义类} TMyCl =class bb:string; end; procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:16

关联文件类型

uses System.Win.Registry,Winapi.ShlObj; procedure TForm1.Button3Click(Sender: TObject); begin
·2015-10-31 10:16

TSsringList使用 WM_MouseMove消息 移位异或操作(y shl 16 or X)

{1、显示鼠标在 Panel1 中的坐标}{2、显示是否同时按住了 Shift、Ctrl、Alt}procedure TForm1.Panel1MouseMove(Sender: TObject; Shift
·2015-10-31 10:14

请教： 事件和消息的联系？

  例如：Tedit中有一个事件是onkeypress,应用如下： procedure tform1.edit1keypress(sender:tobject;var key:char
·2015-10-31 10:54

delphi编程创建桌面快捷方式

uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; procedure TForm1.N2Click(Sender: TObject); var tmpObject
·2015-10-31 10:53

delphi执行一个外部程序，当外部程序结束后，delphi程序立即响应

procedure TForm1.Button1Click(Sender: TObject); var SEInfo: TShellExecuteInfo; ExitCode:
·2015-10-31 10:52

Delphi中的变体Variant数组相关函数

1.VarArrayCreate procedure TForm1.Button1Click(Sender: TObject); var   V, W : Variant;   i
·2015-10-31 10:51

网络高手看过来：为什么我用htons转换网络节序时会发生错误？200元大洋伺候

lid=2190549 procedure TForm1.Button1Click(Sender: TObject); type TDebugDL = record    Parm1
·2015-10-31 10:49

不常用但是很实用的函数

procedure TForm1.Button1Click(Sender: TObject);var ebt: TEditBalloonTip;begin  with ebt do&
·2015-10-31 10:00

DynArrayToVariant DynArrayFromVariant复制动态数

type intArr=array of Integer; procedure TfrmMainDA.Button2Click(Sender: TObject);var aa:intArr;bb:intArr
·2015-10-31 10:00

常用的询问对话框包括

在VCL下，常用的询问对话框包括 procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject); begin  
·2015-10-31 10:59

遍历任务栏上的窗体

---Delphi------- uses CommCtrl;   procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:59

一种获取无符号整数最大值的方法:

www.cnblogs.com/del/archive/2008/02/16/1070513.html //一种获取无符号整数最大值的方法: procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:14

delphi和INNO SETUP 文件关联操作

procedure TForm1.Button1Click(Sender: TObject); var   reg: TRegistry; begin   reg : =
·2015-10-31 10:31

form设置为可移动

  procedure TForm5.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState
·2015-10-31 10:31

[delphi]参数带有默认值的函数

Integer=2): Integer;begin  Result := a + b + c;end;   procedure TForm1.Button1Click(Sender: TObject
·2015-10-31 10:22

cxgrid动态显示行号

uses cxLookAndFeelPainters;      type   TMyCxGrid = class(TObject)  
·2015-10-31 10:13

uLanguage.pas

//author: cxg {  For example :procedure TForm1.ComboBox1Change(Sender: TObject);begin  SetActiveLanguage
·2015-10-31 10:13

TQueue,TStack

    TObjectQueue = class(TQueue)  public    function Push(AObject: TObject
·2015-10-31 10:12

利用INI文件实现界面无闪烁多语言切换

{  For example :procedure TForm1.ComboBox1Change(Sender: TObject);begin  SetActiveLanguage(
·2015-10-31 10:11

ping

使用uses ping;procedure TForm1.Button1Click(Sender: TObject);varstr:
·2015-10-31 10:10

最简单的遍历树算法

procedure TForm1.Button1Click(Sender: TObject);var  node: ttreenode;  i: integer;begin 
·2015-10-31 10:10

delphi TWebBrowser 详细解释

procedure TfrmIE2.WebDocumentComplete(Sender: TObject; pDisp: IDispatch;var URL: OleVariant); 看见了吧,是
·2015-10-31 09:11

Delphi 检测用户超过多长时间没有操作键盘或鼠标

procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize
·2015-10-31 09:08

退出提示已解决，修改提示又有问题了，如何解决呢？

DelphiVCL/html/delphi_20061225122335129.html procedure   TForm1.FormCloseQuery(Sender:   TObject
·2015-10-31 09:22

窗口过程的参数

    Tmessage里好像没有TObject   或handle这样的属
·2015-10-31 09:22

在线程中创建自定义类的实例时报 abstract error

http://www.delphi2007.net/DelphiVCL/html/delphi_20061225124650126.html Tobj   =   class(Tobject
·2015-10-31 09:21

2006年的最后一道难到N个高手的XML，期待解决。。。。。

DelphiNetwork/html/delphi_200612310930407.html procedure   TForm1.Button1Click(Sender:   TObject
·2015-10-31 09:15
上一页 14 15 16 17 18 19 20 21 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他