随笔分类 -  Delphi程序设计教程笔记

1 2 3 4 下一页
一本烂书，代码不全
DLL文件动态调用
摘要：library AngToArcDLL; //dll工程的工程名{ 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 exports any procedures or functions that pass strings as parameters or function 阅读全文
posted @ 2011-12-13 15:29 endsnow 阅读(203) 评论(0) 推荐(0)
DLL文件静态调用
摘要：library AngToArcDLL; //dll工程的工程名{ 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 exports any procedures or functions that pass strings as parameters or function 阅读全文
posted @ 2011-12-13 15:09 endsnow 阅读(249) 评论(0) 推荐(0)
简易时钟
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; Timer2: TTimer; procedure FormPaint(Sender: TObject); procedure Timer1Timer(Sender: TObject); ... 阅读全文
posted @ 2011-12-13 11:13 endsnow 阅读(283) 评论(0) 推荐(0)
媒体播放器
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, MPlayer;type TForm1 = class(TForm) MediaPlayer1: TMediaPlayer; Panel1: TPanel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton;... 阅读全文
posted @ 2011-12-12 13:37 endsnow 阅读(164) 评论(0) 推荐(0)
播放动画图像
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Animate1: TAnimate; Animate2: TAnimate; procedure FormCreate(Sender: T... 阅读全文
posted @ 2011-12-12 13:18 endsnow 阅读(130) 评论(0) 推荐(0)
调用Windows API函数播放声音
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, mmsystem;type TForm1 = class(TForm) procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public ... 阅读全文
posted @ 2011-12-12 11:28 endsnow 阅读(414) 评论(0) 推荐(0)
画框输出三角函数
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls;type TForm1 = class(TForm) PaintBox1: TPaintBox; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; sin1: TMenuItem; cos1: TMenuItem; cls1: TMenuItem;... 阅读全文
posted @ 2011-12-12 11:11 endsnow 阅读(195) 评论(0) 推荐(0)
画笔操作
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}p... 阅读全文
posted @ 2011-12-12 10:17 endsnow 阅读(150) 评论(0) 推荐(0)
圆的渐开线
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1... 阅读全文
posted @ 2011-12-12 10:01 endsnow 阅读(270) 评论(0) 推荐(0)
绘制椭圆和矩形
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Shape1: TShape; Shape2: TShape; procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); privat... 阅读全文
posted @ 2011-12-12 09:51 endsnow 阅读(242) 评论(0) 推荐(0)
按窗口大小显示图像
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); procedure FormResize(Sender: TObject); private { Private declarations } public {... 阅读全文
posted @ 2011-12-12 09:28 endsnow 阅读(200) 评论(0) 推荐(0)
打开图片
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Image1: TImage; OpenPictureDialog1: TOpenPictureDialog; procedure Button1Click(Sender: TObject); priva... 阅读全文
posted @ 2011-12-10 22:24 endsnow 阅读(432) 评论(0) 推荐(0)
学生成绩管理
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Edit... 阅读全文
posted @ 2011-12-09 16:44 endsnow 阅读(287) 评论(0) 推荐(0)
常用的BCB & Delphi 函数
摘要：翻译的不好，请见谅。 翻译：鲁小班文件： ActnList CreateAction 函数 创建一个指定类型的Action，显示在action list editor中。 EnumRegisteredAction 过程 枚举已经注册的Action RegisterAction 过程 注册Action UnRegisterAction 过程 反注册Action文件： Classes Bounds 函数 输入上下高宽返回一个矩形结构。 CollectionsEqual 函数 比较两个TCollection是不是相等。 CurrentGroup 变量 FindClass 函数 从输入字符串中返回一个 阅读全文
posted @ 2011-12-09 15:14 endsnow 阅读(608) 评论(0) 推荐(0)
简易文本编辑器
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton;... 阅读全文
posted @ 2011-12-09 14:47 endsnow 阅读(215) 评论(0) 推荐(0)
鼠标的拖动操作
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Memo1: TMemo; procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedu... 阅读全文
posted @ 2011-12-08 16:26 endsnow 阅读(296) 评论(0) 推荐(0)
检测Shift、Alt和Ctrl键
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormMouseDown(Sender: TObject; Button: TMo... 阅读全文
posted @ 2011-12-08 16:06 endsnow 阅读(336) 评论(0) 推荐(0)
模拟按下键盘上的某个键
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject)... 阅读全文
posted @ 2011-12-08 15:46 endsnow 阅读(255) 评论(0) 推荐(0)
虚拟键表、鼠标传入的参数
摘要：虚拟键码对应值对应键VK_LBUTTON1鼠标左键VK_RBUTTON2鼠标右键VK_CANCEL3CancelVK_MBUTTON4鼠标中键VK_XBUTTON15VK_XBUTTON26VK_BACK8BackspaceVK_TAB9TabVK_CLEAR12ClearVK_RETURN13EnterVK_SHIFT16ShiftVK_CONTROL17CtrlVK_MENU18AltVK_PAUSE19PauseVK_CAPITAL20Caps LockVK_KANA21VK_HANGUL21VK_JUNJA23VK_FINAL24VK_HANJA25VK_KANJI25*VK_ESCA 阅读全文
posted @ 2011-12-08 15:34 endsnow 阅读(236) 评论(0) 推荐(0)
Try Except异常实例
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); ... 阅读全文
posted @ 2011-12-08 14:55 endsnow 阅读(356) 评论(0) 推荐(0)

1 2 3 4 下一页