Как обозвать кнопочки?

← →
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;

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

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

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

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