Description


Se produit lorsque l'utilisateur clique sur le composant. L'événement permet également d'empêcher l'action sélectionnée pour le bouton.



Exemples


procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Cancel := True; // Si le paramètre Cancel est défini sur True, l'action affectée au bouton ne sera pas exécutée
end;



procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if IDNO = MessageBox('Exécuter l'action?', 'Caption', MB_YESNO+MB_ICONQUESTION) then // Si l'utilisateur a cliqué sur Non
    begin
        Cancel := True; // Si le paramètre Cancel est défini sur True, l'action affectée au bouton ne sera pas exécutée
    end;
end;