Назначение


Событие срабатывает при клике мышкой по компоненту.




Описание


Событие также позволяет предотвратить выполнение выбранного действия для кнопки.



Примеры


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;