Вопрос и Ответ 8

8. Можно ли при обработке нажатий нескольких кнопок обойтись одним обработчиком события?

Предположим, Вы пишете калькулятор и у Вас десять цифровых кнопок от 0 до 9. Теперь Вы создаете только один обработчик нажатия кнопки и присваиваете его остальным девяти кнопкам. При вызове обработчика в параметре Sender передается указатель на компонент вызвавший этот обработчик. Для получения доступа к полям и методам указанного компонента необходимо указать Delphi к какому типу относится этот компонент - командой AS.

Пример:

............

VAR Target: String;

............

procedure TForm1.ButtonAllClick(Sender: TObject);
begin

WITH Sender AS TSpeedButton DO
Target := Target+Caption;