ユニットWinForm;
インタフェース
用途
System.Drawing、System.Collections、System.ComponentModel、
System.Windows.Forms、System.Data;
タイプ
TWinForm = クラス(System.Windows.Forms.Form)
{$REGION 'デザイナーが管理するコード'}
厳密なプライベート
/// <概要>
/// 必須のデザイナー変数。
/// </概要>
コンポーネント: System.ComponentModel.Container;
Button1: System.Windows.Forms.Button;
/// <概要>
/// デザイナーのサポートに必要なメソッド - 変更しないでください
/// このメソッドの内容をコード エディターで表示します。
/// </概要>
プロシージャ初期化コンポーネント;
プロシージャ Button1_Click(送信者: System.Object; e: System.EventArgs);
{$ENDREGION}
厳重に保護されている
/// <概要>
/// 使用されているリソースをクリーンアップします。
/// </概要>
プロシージャ Dispose(Disposition: Boolean);
プライベート
{プライベート宣言}
公共
コンストラクター作成;
終わり;
//クラスとして記述することもできます。ここではレコードを使用しました。レコードは値型なのでインスタンスを作成する手間が省けます。
TClassTest=レコード
公共
FA:整数;
//オーバーロードされた「+」演算子
クラス演算子 add(A,B:TClassTest):TClassTest;
終わり;
[アセンブリ: RuntimeRequiredAttribute(TypeOf(TWinForm))]
実装
{$REGION 'Windows フォーム デザイナーが生成したコード'}
/// <概要>
/// デザイナーのサポートに必要なメソッド -- 変更しないでください
/// このメソッドの内容をコード エディターで表示します。
/// </概要>
プロシージャ TWinForm.InitializeComponent;
始める
Self.Button1 := System.Windows.Forms.Button.Create;
Self.SuspendLayout;
//
//ボタン1
//
Self.Button1.Location := System.Drawing.Point.Create(96, 88);
Self.Button1.Name := 'Button1';
Self.Button1.Size := System.Drawing.Size.Create(392, 112);
Self.Button1.TabIndex := 0;
Self.Button1.Text := 'Button1';
Include(Self.Button1.Click, Self.Button1_Click);
//
//ツインフォーム
//
Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
Self.ClientSize := System.Drawing.Size.Create(560, 357);
Self.Controls.Add(Self.Button1);
Self.Name := 'TWinForm';
Self.Text := 'WinForm';
Self.ResumeLayout(False);
終わり;
{$ENDREGION}
プロシージャ TWinForm.Dispose(Disposing: Boolean);
始める
処分する場合
始める
if コンポーネント <> nil then
コンポーネント.Dispose();
終わり;
継承された Dispose(廃棄);
終わり;
コンストラクター TWinForm.Create;
始める
継承された作成。
//
// Windows フォーム デザイナーのサポートに必要
//
コンポーネントを初期化します。
//
// TODO: InitializeComponent 呼び出しの後にコンストラクター コードを追加します。
//
終わり;
プロシージャ TWinForm.Button1_Click(送信者: System.Object; e: System.EventArgs);
変数
A、B、C:Tクラステスト;
始める
A.FA :=1;
B.FA :=2;
C:=A+B; //2 つの構造体 (またはクラス) 間で + 演算を使用することは、DELHI8 より前には想像できませんでした。
system.Windows.Forms.MessageBox.Show(System.Convert.ToString(C.FA) );
終わり;
{Tクラステスト}
//「+」演算子のオーバーロードの実装
クラス演算子 TClassTest.add(A, B: TClassTest): TClassTest;
始める
結果.FA:=A.FA + B.FA;
終わり;
終わり。