Скачать: CL | DM;

Не пойму почему не видно Label ов   Найти похожие ветки 

← →
balepa ©   (2006-09-27 06:40) [0]

for i:= 1 to 10 do begin
     Scales[i]:= TLabel.Create(Self);
     Scales[i].Parent:= Form2;
     Scales[i].Name:= "S"+IntToStr(i);
     Scales[i].AutoSize:= True;
     Scales[i].Font.Name:= "Arial";
     Scales[i].Font.Size:= 10;
     Scales[i].Font.Style:=[fsBold];
     Scales[i].Font.Color:= RGB(0,255,0);
     Scales[i].Width:= 66;
     Scales[i].Height:= 24;
     Scales[i].Top:= 528;
     Scales[i].Left:= 16;
     Scales[i].Caption:="llllll";// IntToStr(i*10);
     Scales[i].Tag:= 0;
     Scales[i].Visible:= true;
end;

---

← →
balepa ©   (2006-09-27 06:49) [1]

Если вызывать в FormCreate не видно, а если по нажатию кнопки видно
Оформлено в виде процедуры procedure TForm2.CreateLabels;

---

← →
Loginov Dmitry ©   (2006-09-27 07:52) [2]

balepa ©   (27.09.06 6:40)
Не пойму почему не видно Label"ов

Проверил у себя - все видно!

---

← →
balepa ©   (2006-09-27 08:02) [3]

Loginov Dmitry ©   (27.09.06 07:52) [2]
Так на первой форме и у меня видно а на второй нет.

---

← →
MBo ©   (2006-09-27 08:23) [4]

вот здесь ты используешь Self
 Scales[i]:= TLabel.Create(Self);

а здесь почему-то нет...
 Scales[i].Parent:= Form2;

И почему у всех меток одинаковые координаты?

---

← →
balepa ©   (2006-09-27 09:09) [5]

MBo ©   (27.09.06 08:23) [4]
И почему у всех меток одинаковые координаты?
ДА там неодинаковые будут просто хотелось бы чтобы их было сначала просто видно.

вот здесь ты используешь Self
Scales[i]:= TLabel.Create(Self);

а здесь почему-то нет...
Scales[i].Parent:= Form2;

Сенкс.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c