我的代码如下,运行不报错,但LABEL3没有显示出来:
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses
Unit2;
{$R *.dfm}var
label3:tlabel;procedure TForm1.Panel1Click(Sender: TObject);
begin
label3:=tlabel.Create(Panel1);
label3.Caption:='test';
label3.Top:=2;
label3.Left:=20;
label3.Color:=clred;
label3.Visible:=true;
end;
end.
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses
Unit2;
{$R *.dfm}var
label3:tlabel;procedure TForm1.Panel1Click(Sender: TObject);
begin
label3:=tlabel.Create(Panel1);
label3.Caption:='test';
label3.Top:=2;
label3.Left:=20;
label3.Color:=clred;
label3.Visible:=true;
end;
end.
解决方案 »
- fastreport 分栏问题 当需要分栏,且每个栏之间的宽度不一致时,fastreport 能否满足需求?
- 关于单元文件互访问题!TADOQuery --> DM.TADOConnnection
- 各位大哥大姐帮帮忙!答案一出来就给分!小第在这里先谢谢大哥大姐了!
- ★急★数据库字段计算问题:如何计算字段CC=AA+BB,来者有分,顶者有分★★
- 求助,这样一个DLL如何来调用?????急急急(在线等。。。。。。)
- 请用过"ExpressQuantumGrid 4.2 For Delphi 6"的高手解决一下这个问题。给100分
- 给我一个满意的答案我给100分:地磅的数据是怎么进系统的,用DELPHI该怎么实现?
- 怎样能把image中的picture清空掉,在需要时,还可以放入别的图象。谢谢。
- 可以通过笔记本和手机上网吗?
- 再问一下???
- ★★★关于ExitWindowEx的2个小问题。
- 请教 当输入的id号在表中不存在则返回信息“此ID不存在”的存储过程如何实现?
a:TEdit;
begin
a:=TEdit.Create(self);
a.Top:=80;
a.Left:=200;
a.Parent:=Form1;
我以前也遇到过这种问题.