2011年12月2日
Delphi数据类型ASCⅡ快捷键查询
摘要： 保留字 andarrayasasmbegincaseclassconstconstructordestructordispinterfacedivdodonwntoelseendexceptexportsfilefinalizationfinallyforfunctiongotoifimplementationininheritedinitializationinlineinterfaceislabellibrarymodnilnotobjectoforoutpackedprocedureprogrampropertyraiserecordrepeatresourcestringse... 阅读全文
posted @ 2011-12-02 19:34 endsnow 阅读(910) 评论(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; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edi... 阅读全文
posted @ 2011-12-02 18:15 endsnow 阅读(529) 评论(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; procedure Button1Cli... 阅读全文
posted @ 2011-12-02 17:44 endsnow 阅读(590) 评论(0) 推荐(0)
显示隐藏标签
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); pr... 阅读全文
posted @ 2011-12-02 16:46 endsnow 阅读(143) 评论(0) 推荐(0)
不能改变大小的窗体
摘要： 主窗体BorderStyle改为bsDialog。 阅读全文
posted @ 2011-12-02 16:32 endsnow 阅读(116) 评论(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-02 16:20 endsnow 阅读(156) 评论(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; procedure Edit1Change(Sender: TObject); procedure But... 阅读全文
posted @ 2011-12-02 15:56 endsnow 阅读(199) 评论(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-02 15:27 endsnow 阅读(239) 评论(0) 推荐(0)