|
下面是一个关于Delphi大Bug的更加详尽的例子。
我建议大家尽可以好好去试试。关于它的讨论，希望热烈一点，借此，
能对大家多少有些帮助。两外两个类似的文章在
http://www.csdn.net/develop/read_article.asp?id=12606
http://www.csdn.net/develop/read_article.asp?id=12525
下面是例子源代码，其中的设置，您尽可以自由发挥。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Button1: TButton;
MainMenu1: TMainMenu;
xiangya1: TMenuItem;
Image1: TImage;
Shape1: TShape;
procedure Button1Click(Sender: TObject);
procedure xiangya1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
type
TxObject = class
destructor Destroy;override;
end;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x: TxObject;
begin
x := TxObject.Create;
ShowMessage(''''xiangya'''');
x.Free;
end;
{ TxObject }
destructor TxObject.Destroy;
begin
MessageBox(0, PChar(''''TxObject''''),''''Free'''',MB_OK);
inherited;
end;
procedure TForm1.xiangya1Click(Sender: TObject);
var
x: TxObject;
begin
x := TxObject.Create;
ShowMessage(''''xiangya'''');
x.Free;
end;
procedure TForm1.Image1Click(Sender: TObject);
var
x: TxObject;
begin
// x := TxObject.Create;
// ShowMessage(''''xiangya'''');
x.Free;
end;
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
xx: TxObject;
begin
// xx := TxObject.Create;
ShowMessage(''''xiangya'''');
xx.Free;
end;
end.
[聊天工具]小心Foxmail邮件模板BUG [聊天工具]OICQ---存在重大BUG?
[系统软件]Windows记事本中的Bug [常用软件]解决压缩软件的Bug技巧
[Delphi程序]Delphi 6 SOAP 源码中的BUG修正 [Delphi程序]改良控件－Delphi自带控件Bug的消除
[Delphi程序]不知您是笨蛋，还是我是笨蛋，关于Delphi的大Bug [Delphi程序]Delphi的大Bug
[Delphi程序]DELPHI 6 Update 2# 的 Bug 及其解决方法 [Delphi程序]TEmbeddedwb的一个小bug
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
