Скачать: CL | DM;

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

← →
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 ...

---

← →
sniknik ©   (2006-04-05 00:09) [5]

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

procedure TForm1.ButtonClick(Sender: TObject);

procedure Hello(Tag: integer);
begin
  Caption:= IntToStr(Tag);
end;

begin
 Hello(TComponent(Sender).Tag);
end;

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

---

← →
d3777 ©   (2006-04-05 00:20) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c