Текущий архив: 2003.01.13;
Скачать: CL | DM;

Вниз

Создание компанентов.   Найти похожие ветки 

← →
jen_bond   (2003-01-03 15:09) [0]

У меня есть ini файл в котором храниться информация о компанентах, и я хочу при нажатии на кнопку что бы все эти компаненты были созданы.

procedure TForm1.Button1Click(Sender: TObject);
var
IniFile: TiniFile;
work: string;
x:TLabel;
i,c:integer;
begin
IniFile := TiniFile.Create("c:\monitor.ini");
c:=StrToInt(IniFile.ReadString("MonitoringCreate","Labelcount",""));
for i:=0 to c do begin
work:="";
work:=IniFile.ReadString("MonitoringCreate","Label"+IntToStr(i)+"","");
x:=TLabel.create(self);
x.Caption:=""+IntToStr(i)+"";
x.Top:=x.Top+20;
x.Name:=work;
x.parent:=Form1;
end;
IniFile.Free;
end;

Но создается только один. Где я допустил ошибку

---

← →
Song ©   (2003-01-03 15:14) [1]

Переменная одна.

---

← →
Anatoly Podgoretsky ©   (2003-01-03 15:16) [2]

Как определил, что создан только один, ты проверял ComponentCount до и после.

---

← →
Anatoly Podgoretsky ©   (2003-01-03 15:18) [3]

Song © (03.01.03 15:14)
Вообще то она совсекм не нужна

---

← →
jen_bond   (2003-01-03 15:24) [4]

На форме отоброжается только один компанент.

---

← →
Anatoly Podgoretsky ©   (2003-01-03 15:28) [5]

А ты чего ожидал, если ты его размещаешь по одним и тем же координатам

---

← →
jen_bond   (2003-01-03 15:59) [6]

Спасибо!

---

← →
Igorek ©   (2003-01-03 18:56) [7]

А что такое компАнент? ;-)))

---

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

Текущий архив: 2003.01.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c