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

Уважаемые Мастера!   Найти похожие ветки 

← →
Tornado ©   (2002-08-21 16:50) [0]

У меня на форме имеется порядка 30 кнопок SpeedButton. Вопрос: как мне отследить, нажата ли какая либо кнопка и если да - то какая именно? Нажато может быть одновременно несколько кнопок. Надо что-то вроде массива кнопок сделать наверно, я не знаю. Подскажите пожалуйста. Спасибо.

---

← →
MBo ©   (2002-08-21 16:53) [1]

общий обработчик, анализировать Sender

---

← →
lenin ©   (2002-08-21 17:01) [2]

Вариант такой:

...
private
procedure ButtonClick(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
for i:=1 to 30 do
with TSpeedButton.Create(self) do
begin
name:="button"+IntToStr(i);
left:=i*20;
top:=20;
width:=20;
height:=20;
OnClick:=ButtonClick;
parent:=self;
end;
end;
...
procedure TForm1.ButtonClick(Sender: TObject);
begin

Label1.caption:="Нажата"+ (Sender as TSpeedButton).name;

end;

---

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

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



Память: 0.45 MB
Время: 0.01 c