高分求助!帮我看看代码!我想把一个窗口做成一个类,窗口上有一个label,label的值在调用这个类的时候传入,应该怎么做,谢谢!

Iris 2003-08-18 05:23:59
type里面有如下定义:
TerminateForm=class(TForm)
private
libing : TLabel;
end;

然后:

procedure TForm1.Button4Click(Sender: TObject);
var
haha:TerminateForm;
begin
haha.Show;
haha.libing.Caption:='welcome ! ';
end;

怎么点完button4没有反应,haha.show在做什么,怎么没show出来!
...全文
28 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
Spqk005 2003-08-18
  • 打赏
  • 举报
回复
在type中如下过程如
type里面有如下定义:
TerminateForm=class(TForm)
private
libing : TLabel;
public:
procedurce SetLabelCaption(str:string);//所加的表单过程
end;
//所加过程的实现
procedure TTerminateForm.SetLabelCaption(str:string);
begin
libing.Caption:=str;
end;

//对类的继承生成
procedure TForm1.Button4Click(Sender: TObject);
var
haha:TerminateForm;
begin
haha:=TerminateForm.Create(self);
haha.setLable('根据表单类所生成的表单');
haha.Show;
end;
foreveryday007 2003-08-18
  • 打赏
  • 举报
回复
//
haha := TerminateForm.Create(Self);
//(Y)
//应该OK通过
//快测试吧
97866 2003-08-18
  • 打赏
  • 举报
回复


procedure TForm1.Button4Click(Sender: TObject);
var
haha:TerminateForm;
begin
haha := TerminateForm.Create(Self);
haha.Show;
haha.libing.Caption:='welcome ! ';
end;
charles2118 2003-08-18
  • 打赏
  • 举报
回复
下班了,呵呵,最后一贴
type里面有如下定义:
TerminateForm=class(TForm)
private
libing : TLabel;
public:
procedurce setLable(str:string);
end;

procedure TTerminateForm.setLable(str:string);
begin
libing.Caption:=str;
end;


procedure TForm1.Button4Click(Sender: TObject);
var
haha:TerminateForm;
begin
haha:=TerminateForm.Create;
haha.setLable('welcome');
haha.Show;
end;

Iris 2003-08-18
  • 打赏
  • 举报
回复
我是过了呀
haha := TerminateForm.Create;没有足够的参数!
DWGZ 2003-08-18
  • 打赏
  • 举报
回复


procedure TForm1.Button4Click(Sender: TObject);
var
haha:TerminateForm;
begin
haha := TerminateForm.Create;
haha.Show;
haha.libing.Caption:='welcome ! ';
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧