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

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

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

procedure TForm3.backf(Sender: TObject);
var
but: array[0..100] of ttoolbutton;
begin

{поскипано}

but[i]:=ttoolbutton.Create(self); //создаем кнопку и задаем ей параметры
but[i].ImageIndex:=22;
but[i].Wrap:=true;
but[i].OnClick:=mainf ; //на событие он клик

итп

Как определить на какую кнопку нажали:

index:=ttoolbutton(sender).caption;

в index записываем caption нажатой кнопки.

я писал про toolbar
На speed button в принципе та же фигня

Sad Spirit
Получить правила : 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

Ответить   "Sad Spirit" Thu, 8 Jan 2004 10:27:07 +0500 (#49005)