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

Почему на экране не появляются созданные квадраты   Найти похожие ветки 

← →
Marina_S   (2003-11-30 17:24) [0]

Помогите, пожалуйста. Вроде все пишу правильно, а на экране ничего не появляется (хотя должна появиться сетка из квадратов)
var ekran: array[1..10,1..10] of TShape;
.............................................
procedure TForm1.FormActivate(Sender: TObject);
var i,j,top,left:integer;
begin
top:=24;left:=24;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
ekran[i,j]:=TShape.Create(Form1);
ekran[i,j].Shape:=stRectangle;
ekran[i,j].Brush.Color:=$00FFE8F8;
ekran[i,j].Pen.Color:=$00DF009C;
ekran[i,j].Visible:=true;
ekran[i,j].Enabled:=true;
ekran[i,j].top:=top;
ekran[i,j].Left:=left;
left:=left+49;
ekran[i,j].Width:=49;
ekran[i,j].Height:=49;
end;
top:=top+49;
left:=0;
end;

end;

---

← →
dataMaster ©   (2003-11-30 17:29) [1]

Попробуй после

ekran[i,j]:=TShape.Create(Form1);

написать

ekran[i,j].Parent:=Form1;

---

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

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



Память: 0.45 MB
Время: 0.018 c