OnClick
Назначение
Событие срабатывает при клике мышкой по компоненту.
Описание
Событие также позволяет предотвратить выполнение выбранного действия для кнопки.
Примеры
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
Cancel := True; // если параметру Cancel присвоить значение True, то действие, которое присвоено кнопки выполнено не будет
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
if IDNO = MessageBox('Выполнить действие?','Заголовок', MB_YESNO+MB_ICONQUESTION) then // если пользователь нажал Нет
begin
Cancel := True; // если параметру Cancel присвоить значение True, то действие, которое присвоено кнопки выполнено не будет
end;
end;