|
procedure
TForm1.CheckBox1Click(Sender: TObject);
var texte : string;
begin
if (Sender as TCheckBox).Checked then
texte:=(Sender as TCheckBox).Name+' (cochée)'
else
texte:=(Sender as TCheckBox).Name+' (décochée)';
(Sender as TCheckBox).Caption:=texte;
end;
|
