1 2 3 下一页

  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
  ///

  /// Required designer variable.
  ///

  Components: System.ComponentModel.Container;
  Button1: System.Windows.Forms.Button;
  ///

  /// Required method for Designer support - do not modify
  /// the contents of this method with the code editor.
  ///

  procedure InitializeComponent;
  procedure Button1_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
  ///

  /// Clean up any resources being used.
  ///

  procedure Dispose(Disposing: Boolean); override;
  private
  { Private Declarations }
  public
  constructor Create;
  end;

  //写成类也可以,这里我用了记录。由于记录是值类型省去了创建实例的麻烦
  TClassTest=record
  public

上一篇： Delphi的两个实用技巧(1)播放Flash
下一篇： 从问题到结果 ――EXE2SWF的开发手记

1 2 3 下一页