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出来!
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出来!
解决方案 »
- 我有个TXT文件,里面有按顺序排列的一些数据(排列的方式例如十字、五角星,数据是由图片的像数点组成的即RGB(255)),我现在要想把另一张图片按TXT里的排列方式提取出图片的RGB,要怎么提取!
- 在机房管理中,C/S结构,数据库的如何设计?
- 如何以事务的概念操作SQL server和Oracle?
- 什么ListView控件可以隐藏一列,就像资源管理器一样。
- dbgrid 录入问题
- 今天拿到中大的研究生入学通知书,散分,读计算机网络与应用的前景如何?
- 哪位给我一个能设置背景图的Memo或RichEdit控件吗?
- 100急求英文软件制作方法
- 请教,在delphi为何提示“多步操作产生错误,请检查每一步状态值”
- 各位大侠能否指点一下小弟如何将公历转换成农历?????
- 请问,如何安装及使用 ActiveBar 2.0 和 True DBGird Pro 7.0
- 激活OleContainer中Word对象及获取Word中选中文字:
var
haha:TerminateForm;
begin
haha := TerminateForm.Create;
haha.Show;
haha.libing.Caption:='welcome ! ';
end;
haha := TerminateForm.Create;没有足够的参数!
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;
var
haha:TerminateForm;
begin
haha := TerminateForm.Create(Self);
haha.Show;
haha.libing.Caption:='welcome ! ';
end;
haha := TerminateForm.Create(Self);
//(Y)
//应该OK通过
//快测试吧
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;