Обработка щелчка нескольких кнопок, используя их заголовок
...с ваших слов я понял, что вы все уже реализовали, но давайте все повторим: вы должны убедиться в том, что событие OnClick привязано к каждой кнопке калькулятора (числовые кнопки 0..9) и указывают на общий обработчик события.
В разделяемом обработчике события получите заголовок обрабатываемой кнопки следующим образом:
Edit1.Text := TButton(Sender).Caption;
|
...я думаю в этом случае самым разумным будет использование свойства Tag каждой кнопки:
назначьте уникальный Tag для каждой кнопки (например, эквивалент арабским цифрам)
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Sender is TButton) then
with (Sender as TButton) do
{используем Tag} end; |
Если вам нужен только заголовок, то есть изящный способ получить к нему доступ. Подключите общий обработчик события для всех кнопок и используйте приведение типа как показано ниже:
procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.text := (sender as TButton).caption ;
end;
|
Приведенная ниже конструкция будет недостаточной:
sender.caption
поскольку компилятор не знает о том, имеет ли "sender" свойство caption, или нет.
