procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin //Cet événement se produit quand la souris va sur le bouton Button1.Height:=Button1.Height-1; Button1.Width:=Button1.Width-1; end;