|
摘要：
//Controls.pasconst mrNone = 0; mrOk = idOk; mrCancel = idCancel; mrAbort = idAbort; mrRetry = idRetry; mrIgnore = idIgnore; mrYes = idYes; mrNo = idNo; mrAll = mrNo + 1; mrNoToAll = mrAll + 1; mrYesToAll = mrNoToAll + 1;type TModalResult = Low(Intege... 阅读全文
posted @ 2011-10-21 14:16 豪杰的爸爸 阅读(292) 评论(0) 推荐(0) 编辑
摘要：
program Project1uses Forms, Unit1 in 'Unit1.pas';{$R *.res}begin Application.Initializ; Application.CreateForm(TForm1, Form1); Application.Run;end.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) private .. 阅读全文
posted @ 2011-10-21 11:49 豪杰的爸爸 阅读(277) 评论(0) 推荐(0) 编辑
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params: TCreateParams); override; end; var Form1: TForm... 阅读全文
posted @ 2011-10-21 10:23 豪杰的爸爸 阅读(223) 评论(0) 推荐(0) 编辑 |
||
