ここでは、Delphi の大きなバグの詳細な例を示します。
皆さんもできるだけ試してみることをお勧めします。議論がより活発になることを願っています。
それは誰にとっても役立つかもしれません。同じような記事が2件あります
http://www.csdn.net/develop/read_article.asp?id=12606
http://www.csdn.net/develop/read_article.asp?id=12525
以下はソースコードの例です。自由に設定をいじってみてください。
ユニットユニット1;
インタフェース
用途
ウィンドウ、メッセージ、SysUtils、バリアント、クラス、グラフィックス、コントロール、フォーム、
ダイアログ、StdCtrls、メニュー、ExtCtrls、jpeg;
タイプ
TForm1 = クラス(TForm)
ボタン 1: T ボタン;
MainMenu1: TMainMenu;
xiangya1:TMenuItem;
画像1: T画像;
形状 1: T 形状;
手順 Button1Click(送信者: TObject);
プロシージャ xiangya1Click(送信者: TObject);
プロシージャ Image1Click(送信者: TObject);
プロシージャ Shape1MouseDown(送信者: TObject; ボタン: TMouseButton;
シフト: TShiftState; X、Y: 整数);
プライベート
{プライベート宣言}
公共
{公的宣言}
終わり;
変数
フォーム1: TForm1;
タイプ
TxObject = クラス
デストラクタ Destroy;override;
終わり;
実装
{$R *.dfm}
プロシージャ TForm1.Button1Click(送信者: TObject);
変数
x: Txオブジェクト;
始める
x := TxObject.Create;
ShowMessage('xiangya');
x.無料。
終わり;
{Txオブジェクト}
デストラクター TxObject.Destroy;
始める
MessageBox(0, PChar('TxObject'),'Free',MB_OK);
継承された。
終わり;
プロシージャ TForm1.xiangya1Click(送信者: TObject);
変数
x: Txオブジェクト;
始める
x := TxObject.Create;
ShowMessage('xiangya');
x.無料。
終わり;
プロシージャ TForm1.Image1Click(送信者: TObject);
変数
x: Txオブジェクト;
始める
// x := TxObject.Create;
// ShowMessage('xiangya');
x.無料。
終わり;
プロシージャ TForm1.Shape1MouseDown(送信者: TObject; ボタン: TMouseButton;
シフト: TShiftState; X、Y: 整数);
変数
xx: Txオブジェクト;
始める
// xx := TxObject.Create;
ShowMessage('xiangya');
xx.無料。
終わり;
終わり