DELPHI编译错误
来源:百度知道 编辑:UC知道 时间:2024/06/14 19:44:30
代码如下,请告诉解决办法.以及出现问题的原因
unit mainform;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfrmmain = class(TForm)
close: TButton;
procedure FormCreate(Sender: TObject);
procedure closeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmmain: Tfrmmain;
implementation
{$R *.dfm}
procedure Tfrmmain.FormCreate(Sender: TObject);
begin
caption:='oop is important';
end;
procedure Tfrmmain.closeClick(Sender: TObject);
begin
close ;
end;
end.
unit mainform;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfrmmain = class(TForm)
close: TButton;
procedure FormCreate(Sender: TObject);
procedure closeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmmain: Tfrmmain;
implementation
{$R *.dfm}
procedure Tfrmmain.FormCreate(Sender: TObject);
begin
caption:='oop is important';
end;
procedure Tfrmmain.closeClick(Sender: TObject);
begin
close ;
end;
end.
原因很简单,你的TBUTTON命名出了问题,直接命名成CLOSE,然后你close的时候就出现了你这个close到底是tbutton的close还是关闭的那个close的问题。
你可以把鼠标放在close上,看看出现的,是tubtton还是property