[Lothlorien]

Код:

procedure TRoundBtn.DoMouseLeft(var Msg: TWMMouse);
begin
  if fActive then
  begin
    Picture.Bitmap.Assign(fFace);
  end;
end;

fActive - переменная, эквивалентна fEnabled (но контрол остаётся Enabled постоянно, просто изменяется его внешний вид). fFace - вид кнопки в "состоянии покоя". Края залиты синим цветом RGB 0,0,255, он установлен как прозрачный цвет и невидим (мы видим лишь круглую область)