Главная страница
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.021 c
2-1189510675
FreeTT
2007-09-11 15:37
2007.10.07
Как получить всех родителей в TreeView


2-1189322131
Дядя
2007-09-09 11:15
2007.10.07
TStrings и не понятное исключение


2-1189162219
Gringoire
2007-09-07 14:50
2007.10.07
Как обозвать кнопочки?


15-1189253128
OzoM
2007-09-08 16:05
2007.10.07
Срочно!!!


2-1189325518
qaaqw
2007-09-09 12:11
2007.10.07
Расположение класса в модуле.