Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
ВнизУважаемые Мастера! Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c