OnClick
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;