VPF::Создать TRadioGroup с указателями на Integer

dimych83

Дата 7.11.2008, 08:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 21.3.2007
Где: Красноярск

Репутация: нет
Всего: нет

Надо динамически создать на форме компонент TRadioGroup, в котором к кажому элементу Items надо прилепить помимо заголовка некое целое число, которое бы потом можно было прочитать.
Делаю так (по аналогии как делал с TTreeView):

Код


      while not QueryAnswer.Eof do
      begin
        Items.AddObject(QueryAnswer.FieldByName('text').AsString, TObject(QueryAnswer.FieldByName('id_goto').AsInteger));
        QueryAnswer.Next;
      end;

Но теперь не знаю как получить это значение smile

Помогите пожалуйста. В TTreeView обращался просто к Node.Data, тут такого нет.
Сделал так:

Код

  
var
  kod_goto: integer;
begin
  kod_goto := Integer(rg.Items.Objects[rg.ItemIndex]);
end;

Не помогло :(

Это сообщение отредактировал(а) dimych83 - 7.11.2008, 09:06

Rrader

Дата 7.11.2008, 12:14 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Заполняем:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  with RadioGroup1 do
    for I := 0 to Items.Count - 1 do
      Items.Objects[I] := TObject(I);
end;

Читаем:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  with RadioGroup1 do
    for I := 0 to Items.Count - 1 do
      ShowMessage(IntToStr(Integer(Items.Objects[I])));
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »