Много кнопок - одна процедура

← →
d3777 © (2006-04-04 23:27) [0]

Подскажите пожалуйста: есть, например, 10 кнопок. Нужно вызвать одну и туже процедуру но с разными параметрами
(передаётся одно целое число).
Понял что нужно использовать Sender....... а дальше?

← →
Reindeer Moss Eater © (2006-04-04 23:38) [1]

а дальше - больше

← →
GanibalLector © (2006-04-04 23:39) [2]

Только у кнопок Tag сделай разным.
... private procedure Hello(Obj:TObject); { Private declarations } public ... procedure TForm1.Button1Click(Sender: TObject); begin Hello(Sender); end; procedure TForm1.Hello(Obj: TObject); begin case TButton(Obj).Tag of 0:Caption:="0"; 1:Caption:="1"; end; end;

← →
Reindeer Moss Eater © (2006-04-04 23:43) [3]

А что, если Tag будет одинаковым, ничего не выйдет?
:)

← →
GanibalLector © (2006-04-04 23:47) [4]

2 Reindeer Moss Eater © (04.04.06 23:43) [3]
Угу,не выйдет :)
Тогда,можно так :
if TButton(Obj).Name="Button1" then ...

присваиваеш методу onClick всех 10-и кнопок...

procedure TForm1.ButtonClick(Sender: TObject); procedure Hello(Tag: integer); begin Caption:= IntToStr(Tag); end; begin Hello(TComponent(Sender).Tag); end;

вот тебе и вызов одной и тоже процедуры с разными параметрами (если Tag конечно разный поставиш у кнопок)

всем огромное спасибо
особенно за скорость ответа!!!!!!
а то уже третий день над этим бьюсь :(

Много кнопок - одна процедура Найти похожие ветки