摘要：
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
阅读(295)
评论(0)
推荐(0)
摘要：
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
阅读(254)
评论(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
阅读(229)
评论(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; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); ... 阅读全文
posted @ 2011-12-08 14:55
endsnow
阅读(356)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { P... 阅读全文
posted @ 2011-12-08 14:36
endsnow
阅读(284)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations... 阅读全文
posted @ 2011-12-08 14:21
endsnow
阅读(273)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; p... 阅读全文
posted @ 2011-12-08 13:58
endsnow
阅读(224)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; ListBox1: TListBox; ListBox2: TL... 阅读全文
posted @ 2011-12-08 12:30
endsnow
阅读(179)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObj... 阅读全文
posted @ 2011-12-08 10:43
endsnow
阅读(182)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; ListBox1: TListBox; ListBox2: TListBox; ListBox3... 阅读全文
posted @ 2011-12-08 10:11
endsnow
阅读(188)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; bt: TButton; Button2: TButton; procedure btClick(Sender: TObject); procedure Button2Click(Sender: TObject); private ... 阅读全文
posted @ 2011-12-08 09:49
endsnow
阅读(174)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; ... 阅读全文
posted @ 2011-12-08 09:25
endsnow
阅读(167)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) GroupBox1: TGroupBox; Edit1: TEdit; Label1: TLabel; ComboBox1: TComboBox; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5... 阅读全文
posted @ 2011-12-08 09:07
endsnow
阅读(140)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure ... 阅读全文
posted @ 2011-12-08 08:29
endsnow
阅读(156)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; procedure FormCreate(Sender: TObject); procedur... 阅读全文
posted @ 2011-12-08 08:13
endsnow
阅读(138)
评论(0)
推荐(0)
浙公网安备 33010602011771号