| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с изменением св-в компонент в реалтайм. [XP]

Страницы:   < 1 2 >

AndreyBg ©   (2008-08-20 15:36:00) 

Возникла след-я проблема, не могу понять в чем ошибка.
В реалтайм создаю на формочке группу компонентов TLabel. Задаю нужные свойства, все нормально.
Затем пытаюсь изменить их капшион, а он не меняется.. ;( Подскажите, пожалуйста в чем может быть дело?
Код:
     for i := 1 to BarCodeColumn do
      begin
        for j := 1 to 10 do
          begin
            TDisp := TLabel.Create(FrmPrintBuff);
            TDisp.Name := 'TDisp' + IntToStr((j-1) + (i-1)*10);
            TDisp.AutoSize := false;
            TDisp.Parent := FrmPrintBuff;
            TDisp.Height := 21;
            TDisp.Width := 154;
            TDisp.Top := 8 + (j-1) * 27;
            TDisp.Left := 35 + 196 * (i - 1);
            TDisp.Caption := '000000000000';
          end;
       end;
       
     with dm do
      begin
      i:= 0;
      dm.TmpDS.First;
      while not dm.TmpDS.eof do
       begin
         TDisp := FrmPrintBuff.FindComponent('Disp'+inttostr(i)) as TLabel;
         //Disp_Name := TmpDS.fbn('b_barcode').AsString;
        TDisp.Caption := TmpDS.fbn('b_barcode').AsString;//Disp_Name; // Вот этого присвоения не происходит !!
         FrmPrintBuff.Memo1.Lines.Add(TmpDS.fbn('b_barcode').AsString);
         inc(i);
         dm.TmpDS.Next;
       end;
      end;
      FrmPrintBuff.ShowModal;

---

AndreyBg   (2008-08-20 15:43:00) [21]

в цикл попадаю, проверял..
Закоментированная строка Disp_Nameполучает нужные значения!

---

Германн   (2008-08-20 15:42:00) [22]

> TDisp.Name := 'TDisp' + IntToStr((j-1) + (i-1)*10);


> TDisp := FrmPrintBuff.FindComponent('Disp'+inttostr(i))
> as TLabel;

---

brother   (2008-08-20 15:40:00) [23]

> TmpDS.fbn('b_barcode').AsString

что это? где описано и как?

---

Medbe}I{onok XML   (2008-08-20 15:39:00) [24]

В цикл while не попадаешь

---

Страницы:   < 1 2 >

Наверх