不行呀,创建的label的Caption老是显示不出
解决方案 »
- delphi 读取XML的问题
- 调用数据放到哪个事件中好呢?
- DELPHI的report打印的问题 100分。解决就结贴
- webbrowser 打开不同页面 查看源码的问题
- 怎样在系统中注册微软通讯控件TMsComm(无内容)急!!在线等待!
- ★★fastreport中怎样得到一行的合计值★★
- getmessage 与 peekmessage的区别
- 如何使用动态创建的TServerSocket控件的事件?
- 关于复制对象的问题???(Assign or :=)
- Windows2000自帶游戲,如何將其刪除?
- 在客户端与服务器端连接时出现错误.如何解决?最好给出关键步骤.
- 如何注册OCx的控件,如formone6?
如果赋值了就没问题。
Name := 'label'+IntToStr(i);
下面是我照你的代码来的,没发现问题啊!var
atop:integer=0;procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to 9 do
begin
with TLabel.Create(Self) do
begin
Parent := Self;
top := ATop;
width := 65;
height := 17;
if ((i+2) mod 2)=0 then
left:=8
else
begin
left := 180;
ATop := ATop+28;
end;
caption:='label'+IntToStr(i);
end;
end;end;
top := ATop;
width := 65;
height := 17;怎么有这样的写法,将 Parent 设为自己。TLabel 不是一个真正的Windows
控件,实际上是程序自己在其他Windows控件上输出字符。在 Delphi 和 C++
Builder里,所有控件的位置都是相对位置(TForm除外),所以这儿根本就不
知道 TLabel 相对哪个控件的位置,因而位置是随机数,因此有时能看到,
有时不能看到。
刚才不小心看错了,丢脸啦。
你在注意你的atop变量的定义!
具体原因我也不是很清楚。估计一个对象的父类只能是一个对象,而不能是类。self表示的是类,而不是对象。