zwz_good  

2009年4月22日

程序5-0 头文件
摘要： unit DevcapsConst; interface uses Windows; type TDevcap = record iIndex: integer; szLabel: PAnsiChar; szDesc: PAnsiChar; end; const NUMLINES = 20; var devcaps: array[0..NUMLINES-1] of TD... 阅读全文
posted @ 2009-04-22 15:54 zwz_good 阅读(154) 评论(0) 推荐(0)

2009年4月20日

程序4-0 Sysmetrics 头文件
摘要： unit Sysmets; interface uses Windows; type TSysmetric = record Index: Integer; szLabel: PAnsiChar; szDesc: PAnsiChar; end; const NUMLINES = 77; Sysmetrics: array[0..NUMLINES-1] of TSysmet... 阅读全文
posted @ 2009-04-20 19:35 zwz_good 阅读(423) 评论(0) 推荐(0)
 
程序4-4 Sysmets3
摘要： program Sysmets3; uses windows, Messages, Math, sysmets in '..\sysmets.pas'; function WndProc(hwindow: HWND; message: UINT; wParam, lParam: LongInt): LRESULT; stdcall;{$J+}const cxChar: Integer = ... 阅读全文
posted @ 2009-04-20 19:34 zwz_good 阅读(242) 评论(0) 推荐(0)

2009年4月19日

程序4-3 Sysmets2
摘要： program Sysmets2; uses Windows, Messages, Math, sysmets in '..\sysmets.pas'; function WndProc(hwindow: HWND; message, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+} cxChar: Integer = 0; cxC... 阅读全文
posted @ 2009-04-19 19:33 zwz_good 阅读(149) 评论(0) 推荐(0)
 
程序4-1 Sysmets1
摘要： program Sysmets1; uses Windows, Messages, sysmets in '..\sysmets.pas'; function WndProc(hwindow: HWND; message, wParam, lParam: LongInt): LRESULT; stdcall;const{$J+} cxChar: Integer = 0; cxCaps: I... 阅读全文
posted @ 2009-04-19 16:53 zwz_good 阅读(137) 评论(0) 推荐(0)
 
程序3-1 Hellowin程序
摘要： program HelloWin; uses Windows, SysUtils, Messages, MMSystem; function WndProc(HWindow: HWND; message, wParam, lParam: Longint): Longint; stdcall;var hdc1: HDC; ps1: PAINTSTRUCT; rect: TRECT;begin... 阅读全文
posted @ 2009-04-19 11:07 zwz_good 阅读(211) 评论(0) 推荐(0)

2009年4月18日

创建旋转字体
摘要： procedure TForm1.FormPaint(Sender: TObject);var //font: TFont; lf: TLogFont; I: Integer;begin Canvas.Font.Name:= 'Arial'; Canvas.Font.Size:= 24; Canvas.Font.Color:= clRed; //font:= TFont.Create... 阅读全文
posted @ 2009-04-18 21:50 zwz_good 阅读(173) 评论(0) 推荐(0)
 
继承自Twincontrol控件实例创建过程(转载)
摘要： 阅读全文
posted @ 2009-04-18 17:14 zwz_good 阅读(187) 评论(0) 推荐(0)
 
自绘按钮（转载）
摘要： 在标准的Windows程序中所有按钮均没有颜色。因此Delphi提供的所有按钮组件也均无颜色属性，有时你可能做了一个五颜六色的程序界面，而按钮颜色可能很不相称。 在此本人提供一种用自定义组件制作有颜色属性的铵钮的方法，它遵循了Delphi的组件定义规则，完成后该按钮与普通按钮（Button）相比，多了一个Color属性，你可以永远地使用它，在设计阶段随意地改变颜色，就象是Delphi本身提供的组件... 阅读全文
posted @ 2009-04-18 11:22 zwz_good 阅读(435) 评论(0) 推荐(0)

2009年4月13日

遍历目录及文件
摘要： procedure SearchFile(path:string); //注意：path实参 字符串后要加 ' \ ' var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(Path+'*.*',faAnyFile,SearchRec); while found=0 ... 阅读全文
posted @ 2009-04-13 15:49 zwz_good 阅读(199) 评论(0) 推荐(0)
 
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3