Делфи 5, програмное создание кнопки

Как в делфи 5 програмно создать 1176 SpeedButton и как можно узнать на какую
из них я нажал?????
желательно с куском кода
пишите плиз сюда smth_n***@f*****.ru
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
В сообщении от Среда 07 Январь 2004 18:11 Моисеев Александр написал:
Код не проверял, но должно быть чтото типа этого:
procedure TMyButtonForm.CreateButtons;
var
i: Integer;
sb: TSpeedButton;
begin
for i := 1 to 1176 do
begin
sb := TSpeedButton.Create(self);
sb.parent := self; // на каком контроле эти кнопки будут располагаться.
sb.onClick := SpeedButtonClick;
sb.Caption := IntToStr(i);
//рассчитываем расположение и координаты кнопок
sb.Top := .....;
sb.Left := .....;
sb.Height := .....;
sb.Width := ......;
end;
end;
procedure TMyButtonForm.SpeedButtonClick(Sender: TObject)
var
sb: TSpeedButton;
begin
if Sender is TSpeedButton then
begin
sb := Sender as TSpeedButton;
ShowMessage("You are pressed button " + sb.Caption);
end;
end;
Надеюсь заработает. :)
Дима Федотов.
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru