摘要：
; not allowed before ELSEElSE前不允许有“;” clause not allowed in OLE automation section在OLE自动区段不允许“”子句 is not a type identifier不是类型标识符 not previously declared as a PROPERTY前面没有说明PROPERTYGOTO leads into or out of TRY statement GOTO进入或超出TRY语句的范围 clause expected, but found要求子句，但出现16-Bit fixup encountered .. 阅读全文
posted @ 2013-01-09 16:42
冰意 LceMeaning
阅读(247)
评论(0)
推荐(0)
摘要：
//方法1：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9']) then Key := Chr(0);end;//方法2：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Byte(Key) in [48..57]) then // 0的 Ascii 是 48 Key := Chr(0);end;//方法3:procedu 阅读全文
posted @ 2013-01-09 16:32
冰意 LceMeaning
阅读(208)
评论(0)
推荐(0)
摘要：
本例效果图:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;type TForm1 = class(TForm) MainMenu1: TMainMenu; OpenDialog1: TOpenDialog; mniFile: TMenuItem; mniOpen: TMenuItem; N1: TMenuItem; mniExit: TMenuItem; proce... 阅读全文
posted @ 2013-01-09 15:56
冰意 LceMeaning
阅读(183)
评论(0)
推荐(0)
摘要：
我们从 Form 的源码中看到, 指定的快捷键是一个数字, 譬如 Ctrl+A, 对应着数字: 16449其实这是一个 Word 类型的数字; 快捷键的参数是 TShortCut 类型的, 它定义在 Classes 单元的第92行(Delphi 2007):TShortCut = Low(Word)..High(Word);Menus 单元有两个函数: TextToShortCut、ShortCutToText, 可以互相转换它们.var w: Word; s: string;begin w := TextToShortCut('Ctrl+A'); ShowMessage(In 阅读全文
posted @ 2013-01-09 15:53
冰意 LceMeaning
阅读(207)
评论(0)
推荐(0)
摘要：
菜单项通过 ShortCut 属性来设定快捷键, ShortCut 是 TShortcut 类型的; TShortcut 是一个子界: 0..65535ShortCut 的所有可选值请参加列表:http://www.cnblogs.com/LceMeaning/archive/2013/01/09/2853071.html=========================================================================unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, . 阅读全文
posted @ 2013-01-09 15:50
冰意 LceMeaning
阅读(186)
评论(0)
推荐(0)
摘要：
键值快捷键3Scroll Lock8BkSp9Tab12Num 513Enter16Shift17Ctrl18Alt20Caps Lock27Esc32Space33PgUp34PgDn35End36Home37Left38Up39Right40Down44Sys Req45Ins46Del48049150251352453554655756857965A66B67C68D69E70F71G72H73I74J75K76L77M78N79O80P81Q82R83S84T85U86V87W88X89Y90Z96Num 097Num 198Num 299Num 3100Num 4101Num 510 阅读全文
posted @ 2013-01-09 15:48
冰意 LceMeaning
阅读(444)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click... 阅读全文
posted @ 2013-01-09 15:37
冰意 LceMeaning
阅读(293)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; pr... 阅读全文
posted @ 2013-01-09 15:36
冰意 LceMeaning
阅读(220)
评论(0)
推荐(0)
摘要：
使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数:1 uses IOUtils;2 3 procedure TForm1.Button1Click(Sender: TObject);4 const5 SourceDir = 'C:\Temp\Folder1'; { 源文件夹必须存在 }6 DestDir = 'C:\Temp\Folder2'; { 如果目标文件夹不存在, 程序会自动创建 }7 begin8 TDirectory.Copy(SourceDir, DestDir);9 end; 阅读全文
posted @ 2013-01-09 15:29
冰意 LceMeaning
阅读(208)
评论(0)
推荐(0)
摘要：
1-1多线程的基本概念WIN98/NT/2000/XP是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用CPU运行时间和资源，或者说，把CPU时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂起”和“唤醒”，由于时间片很小，给人的感觉是同时运行的。多线程带来如下好处：（自己阅读）1）避免瓶颈；2）并行操作；3）提高效率；在多线程中，通过优先级管理，可以使重要的程序优先操作，提高了任务管理的灵活性。另一方面，在多CPU系统中，可以把不同的线程在不同的CPU中执行，真正做到同时处理多任务（Win98只是模拟的，而Win/NT/2000是真正的多CPU同时操作）。多线程 阅读全文
posted @ 2013-01-09 15:06
冰意 LceMeaning
阅读(189)
评论(0)
推荐(0)
浙公网安备 33010602011771号