Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Gringoire © (2007-09-07 14:50:00)
Как дать имена SpeedButton из БД.

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

Gringoire (2007-09-07 16:51:00) [1]
Всем спасибо! Разобрался! ))) Очень благодарен!

Gringoire (2007-09-07 15:14:00) [2]

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

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

DrPass (2007-09-07 15:09:00) [3]
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 (2007-09-07 15:04:00) [4]
Имена кнопок известны?

Gringoire (2007-09-07 15:01:00) [5]
А если так, чтобы не создавать кнопочки, а только caption им устанавливать?

Ega23 (2007-09-07 14:56:00) [6]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »