Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Делфи 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

Ответить   "Моисеев Александр" Wed, 7 Jan 2004 22:11:39 +0600 (#48680)

 

Ответы:

В сообщении от Среда 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

Ответить   Dima Fedotov Thu, 8 Jan 2004 06:27:56 +0200 (#48973)