上一页 1 ··· 4 5 6 7 8 9 下一页
摘要: ; 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)
上一页 1 ··· 4 5 6 7 8 9 下一页