Width = 249
Height = 21
TabOrder = 1
end
end
这看起来,和从前的win32开发没有什么不同。单元和窗体分开,分别作处理和持久化工作。而在2中这两个工作合并在一个pas文件里了。
2 WindowsForms Application for .NET
unit WinForm;
interface
uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data;
type
TWinForm = class(System.Windows.Forms.Form)
{$REGION ''''Designer Managed Code''''}
strict private
/// <summary>
/// Required designer variable.
/// </summary>
Components: System.ComponentModel.Container;
TextBox1: System.Windows.Forms.TextBox;
Button1: System.Windows.Forms.Button;
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure InitializeComponent;
procedure Button1_Click(sender: System.Object; e: System.EventArgs);
{$ENDREGION}
strict protected
/// <summary>
/// Clean up any resources being used.
/// </summary>
procedure Dispose(Disposing: Boolean); override;
private
{ Private Declarations }
public
constructor Create;
end;
[assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
implementation
{$AUTOBOX ON}
{$REGION ''''Windows Form Designer generated code''''}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWinForm.InitializeComponent;
begin
Self.TextBox1 := System.Windows.Forms.TextBox.Create;
Self.Button1 := System.Windows.Forms.Button.Create;
Self.SuspendLayout;
//
// TextBox1
//
Self.TextBox1.Location := System.Drawing.Point.Create(72, 40);
Self.TextBox1.Name := ''''TextBox1'''';
Self.TextBox1.Size := System.Drawing.Size.Create(152, 21);
Self.TextBox1.TabIndex := 0;
Self.TextBox1.Text := '''''''';
//
// Button1
//
Self.Button1.Location := System.Drawing.Point.Create(80, 160);
Self.Button1.Name := ''''Button1'''';
Self.Button1.Size := System.Drawing.Size.Create(136, 32);
Self.Button1.TabIndex := 1;
Self.Button1.Text := ''''Button1'''';
Include(Self.Button1.Click, Self.Button1_Click);
//
// TWinForm
//
Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
Self.ClientSize := System.Drawing.Size.Create(292, 273);
Self.Controls.Add(Self.Button1);
Self.Controls.Add(Self.TextBox1);
Self.Name := ''''TWinForm'''';
Self.Text := ''''WinForm'''';
Self.ResumeLayout(False);
end;
{$ENDREGION}
procedure TWinForm.Dispose(Disposing: Boolean);
begin
if Disposing then
begin
if Components <> nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TWinForm.Create;
begin
inherited Create;
//
// Required for Windows Form Designer support
//
InitializeComponent;
// 上一页 [1] [2] [3] [4] [5] 下一页 没有相关教程
|