Вопросы и Ответы
8. Можно ли при обработке нажатий нескольких кнопок обойтись одним обработчиком события?
Предположим, Вы пишете калькулятор и у Вас десять цифровых кнопок от 0 до 9. Теперь Вы создаете только один обработчик нажатия кнопки и присваиваете его остальным девяти кнопкам. При вызове обработчика в параметре Sender передается указатель на компонент вызвавший этот обработчик. Для получения доступа к полям и методам указанного компонента необходимо указать Delphi к какому типу относится этот компонент - командой AS.
............
VAR Target: String;
............
procedure
TForm1.ButtonAllClick(Sender: TObject); WITH
Sender AS TSpeedButton DO end; ............
begin
Target := Target+Caption;
...предыдущая страница следующая...
оглавление