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

Runtime   Найти похожие ветки 

← →
Help! ©   (2007-01-25 17:04) [0]

Создаю в run-time
var
araylab:array[1..20] of Tlabel;

begin
araylab[arayl] :=Tlabel.Create(form1);
araylab[arayl].Font.Name:="Arial";

araylab[arayl].Name:=strParametr[0];
araylab[arayl].Width:=STRTOINT(strParametr[1]);
araylab[arayl].Height:=STRTOINT(strParametr[2]);
 araylab[arayl].Left:=STRTOINT(strParametr[3]);
araylab[arayl].Top:=STRTOINT(strParametr[4]);
araylab[arayl].Caption:=strParametr[5];
araylab[arayl].Font.Color:=StringToColor(strParametr[6]);
araylab[arayl].Font.Size:=  StringToColor(strParametr[7]) ;

    araylab[arayl].Parent:=   form1     ;

         inc(arayl) ;
===================================================
for i := 0 to ComponentCount-1 do

if (Components[i] is TButton) then TButton(Components[i]).Free;

изачего  вылетает  Ошибка  abstract Error

---

← →
Ega23 ©   (2007-01-25 17:25) [1]

> TButton(Components[i]).Free;


Это ещё нафига???

---

← →
Help! ©   (2007-01-25 17:41) [2]

Сори
for i := 0 to ComponentCount-1 do

Components[i].Free;

---

← →
Ega23 ©   (2007-01-25 17:42) [3]

Всё равно: зачем? они и так грохнуться при убийстве формы. Ты же в явном виде форму в качестве владельца прописал:
araylab[arayl] :=Tlabel.Create(form1);

---

← →
Help! ©   (2007-01-25 17:55) [4]

а я хочу их сам  грохнуть  и вивести  другое

araylab[arayl] :=Tlabel.Create(nil);
переправил на нул  все равно тоже самое

---

← →
iXT ©   (2007-01-25 18:06) [5]

> а я хочу их сам  грохнуть  и вивести  другое

Кого их?

---

← →
Help! ©   (2007-01-25 18:09) [6]

Несколько  Tlabel

---

← →
Игорь Шевченко ©   (2007-01-25 18:12) [7]

ночной кошмар программиста

---

← →
Плохиш ©   (2007-01-25 18:28) [8]

> Help! ©   (25.01.07 17:04)  


> изачего  вылетает  Ошибка  abstract Error

Из-за того, что используешь абстрактные классы в неприведённом здесь коде. Позволю себе пофантазировать, пытаешься создать экземпляр TStrings...

---

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

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



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