Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.07;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.023 c
15-1189494932
TUser
2007-09-11 11:15
2007.10.07
Ищу дрова


11-1173254708
!Pharaon!
2007-03-07 11:05
2007.10.07
Проблемы с MirrorKOLPackageD7.bpl


3-1180604459
Тфьу
2007-05-31 13:40
2007.10.07
Не происходит RefreshRecord в Oracle


2-1189417039
sos1g3
2007-09-10 13:37
2007.10.07
Построение графика


4-1175766573
Степан Журавлев
2007-04-05 13:49
2007.10.07
GetParent