SpeedButton: узнать какая из кнопок нажата

@Michalich · Регистрация: 31.08.2011

Author24 — интернет-сервис помощи студентам

Есть 5 кнопок SpeedButton, AllowAllUp выставлены в true, GroupIndex у всех 1 , как узнать какая нажата?

@Puporev · 01.09.2019, 15:15

Например так. Присвоить всем кнопкам имена, первой кнопке прописать обработчик

Delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Showmessage('Нажата кнопка '+(Sender as TSpeedButton).Name);
end;

Присвоить его всем кнопкам.

Добавлено через 4 минуты
Или присвоить свойство Tag кнопкам от 1 до 5, написать такой обработчик.

Delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
var n:integer;
begin
n:=(Sender as TSpeedButton).Tag;
Showmessage('Нажата кнопка номер '+inttostr(n));
end;

@Пытливый · 01.09.2019, 23:48

Думается мне что автору нужно узнать это не по нажатию кнопки, а несколько позднее, а тогда наверное так:

Delphi

 for i := 0 to ControlCount - 1
 do if Controls[i] is TSpeedButton
    then with Controls[i] as TSpeedButton
         do if (GroupIndex = 1) and Down
            then DoSomething(Name);

@AzAtom · 02.09.2019, 01:23

Просто по имени проверить:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := '-';
  if SpeedButton1.Down then Label1.Caption := '1';
  if SpeedButton2.Down then Label1.Caption := '2';
  if SpeedButton3.Down then Label1.Caption := '3';
  if SpeedButton4.Down then Label1.Caption := '4';
  if SpeedButton5.Down then Label1.Caption := '5';
end;

@northener · 02.09.2019, 02:00

Сообщение от Пытливый

тогда наверное так

Тоже вариант решения не вполне грамотно заданного вопроса. Только я бы сначала посоветовал бы новичку использовать список Components, а не список Controls. Но это моё имхо.

DenNik · 02.09.2019, 12:03

Сообщение от Пытливый

нужно узнать это не по нажатию кнопки, а несколько позднее

самое адекватное решение

Сообщение от Puporev

присвоить свойство Tag кнопкам от 1 до 5

и при нажатии кнопки сохранять Таг в переменной, а потом при необходимости считать значение, а не городить конструкцию с поиском компонентов

@AzAtom · 02.09.2019, 12:26

DenNik, чем свойство Name не угодило?
С сохранением в отдельную переменную согласен, так получится универсальнее.

DenNik · 02.09.2019, 13:25

Сообщение от AzAtom

чем свойство Name не угодило?

хотя бы тем, что с case не работает

@Michalich 14 / 13 / 2 Регистрация: 31.08.2011 Сообщений: 499
		1
	SpeedButton: узнать какая из кнопок нажата 01.09.2019, 14:26. Показов 2352. Ответов 7 Метки нет (Все метки) Есть 5 кнопок SpeedButton, AllowAllUp выставлены в true, GroupIndex у всех 1 , как узнать какая нажата? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	02.09.2019, 02:00	5
	Сообщение от Пытливый тогда наверное так Тоже вариант решения не вполне грамотно заданного вопроса. Только я бы сначала посоветовал бы новичку использовать список Components, а не список Controls. Но это моё имхо. 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	02.09.2019, 12:03	6
	Сообщение от Пытливый нужно узнать это не по нажатию кнопки, а несколько позднее самое адекватное решение Сообщение от Puporev присвоить свойство Tag кнопкам от 1 до 5 и при нажатии кнопки сохранять Таг в переменной, а потом при необходимости считать значение, а не городить конструкцию с поиском компонентов 0

@AzAtom Модератор 3629 / 2150 / 759 Регистрация: 15.11.2015 Сообщений: 8,631
	02.09.2019, 12:26	7
	DenNik, чем свойство Name не угодило? С сохранением в отдельную переменную согласен, так получится универсальнее. 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	02.09.2019, 13:25	8
	Сообщение от AzAtom чем свойство Name не угодило? хотя бы тем, что с case не работает 0