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

Как обозвать кнопочки?   Найти похожие ветки 

← →
Gringoire ©   (2007-09-07 14:50) [0]

Как дать имена SpeedButton из БД.

10 кнопок, 10 названий в базе, как сделать цикл?

---

← →
Ega23 ©   (2007-09-07 14:56) [1]

DataSet.First;
for i:=1 to 10 do
begin
 with TSpeedButton.Create(Self) do
  begin
    Name := DataSet.FieldByName("ButtonName").AsString;
    Parent := Self;
    OnClick := ButtonOnClick;
    ..............
  end;
  DataSet.Next;
end;

---

← →
Gringoire ©   (2007-09-07 15:01) [2]

А если так, чтобы не создавать кнопочки, а только caption им устанавливать?

---

← →
Ega23 ©   (2007-09-07 15:04) [3]

Имена кнопок известны?

---

← →
DrPass ©   (2007-09-07 15:09) [4]

for i:=0 to ComponentCount - 1 do
begin
 if Components[i] is TSpeedButton then
 begin
   (Components[i] as TSpeedButton).Caption := DataSet.FieldByName("ButtonName").AsString;
   DataSet.Next;
   if DataSet.Eof then break;
 end;
end;

---

← →
Gringoire ©   (2007-09-07 15:14) [5]

> Ega23 ©   (07.09.07 15:04) [3]
> Имена кнопок известны?


Они забиваются в БД. Из базы берется значение поля и присваивается кнопке. После этого тоже самое происходит с др. кнопочкой. Максимально - 10 кнопок. если кнопке названия не хватило - ее не видно(это я сам могу сделать). После этого по нажатию на кнопку будет происходить сортировка в другой таблице по имени кнопки.

---

← →
Gringoire ©   (2007-09-07 16:51) [6]

Всем спасибо! Разобрался! ))) Очень благодарен!

---

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

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



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