2013-12-11
展开全部
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='HELLO WORD!';
end;
begin
label1.Caption:='HELLO WORD!';
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐于2018-05-09
展开全部
以Delphi7为例
1、运行Delphi
默认会创建一个名为Project1的Application,并且有一个默认的主窗口Form1
2、从控件面板的Standard页中拖一个按钮控件到Form1上,会默认命名为Button1
3、双击Button1,写上
ShowMessage('hello,world!');
4、点击Debug工具栏上的Run按钮,或按F9功能键
5、点击Button1按钮 代码如下:unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Hello,world!');
end;end.
</SPAN>
1、运行Delphi
默认会创建一个名为Project1的Application,并且有一个默认的主窗口Form1
2、从控件面板的Standard页中拖一个按钮控件到Form1上,会默认命名为Button1
3、双击Button1,写上
ShowMessage('hello,world!');
4、点击Debug工具栏上的Run按钮,或按F9功能键
5、点击Button1按钮 代码如下:unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Hello,world!');
end;end.
</SPAN>
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询