как обратиться к программно созданному объекту

delavar · November 2014

в диалоговой форме программно создаю ComboBox

   var
     box: TfrxComboBoxControl;
     i: integer;
begin
     box := TfrxComboBoxControl.Create(Panel1);
     box.Name := 'box1';
     box.SetBounds(10,10,100,20);
      for i := 1 to 4 do
        begin
         box.Items.Add(IntToStr(i));
        end;
end;

как взять данные из этого ComboBox

переменнная := box1.Text;

или

переменнная := box.Text;

не помогает

Stalker4 · November 2014

delavar написал: »

в диалоговой форме программно создаю ComboBox
как взять данные из этого ComboBox

Ну если надо взять сразу все, то
box.Items.Text
а если один элемент, то
box.Items[<номер элемента>]

delavar · November 2014

Ну мне не надо все
ComboBox это элемент с выпадающим списком, я из списка выбираю нужное и дальше программа должна составить отчет с учетом выбранного в ComboBox
поэтому box.Items.Text не катит, но доже и это если-б работало

FastReport сообщает

неопределенный идентификатор "box"

то же и с "box1"

gpi · November 2014

Такой скрипт у меня работает:

var
   box: TfrxComboBoxControl;
   i: integer;

procedure Button1OnClick(Sender: TfrxComponent);
begin
  ShowMessage(box.Text);
end;

begin
     box := TfrxComboBoxControl.Create(Panel1);
     box.Name := 'box1';
     box.SetBounds(10,10,100,20);
      for i := 1 to 4 do
        begin
         box.Items.Add(IntToStr(i));
        end;
end.

delavar · November 2014

Спасибо gpi
Понял, элемент "box" нужно объявить глобально, но возникла следующая проблема
по имени к "box" обратиться не получается, т.е.

ShowMessage(box1.Text);

не работает

это нормально?

ComboBox у меня создается динамически от 4 до 8 штук, в зависимости от того что находится в БД, каждому box присваивать другое имя получается бесполезно
box.Name := 'box1';
box.Name := 'box2';
и т.д.

нужно создавать именно
var
box1, box2, ... : TfrxComboBoxControl;

gpi · November 2014

ShowMessage(TfrxComboBoxControl(Report.FindObject('Box1')).Text);

delavar · November 2014

Спасибо за ответы, работает

как обратиться к программно созданному объекту

Комментарии

Оставить комментарий