Как можно поменять цвет фона у TButton?

Sergey Stukov aka Space пишет:

Цвет фона у кнопки обрабатывает не Delphi а Windows. Обойти проблему можно используя вместо TButton, TPanel. Установите параметр BevelWidth = 2 далее небольшой код для событий OnMouseUp OnMouseDown

procedure TMyForm.PanelMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); begin
if Sender is TPanel then
with TPanel(Sender) do BevelOuter := bvRaised; { bvLowered для MouseDown } end;

Теперь просто пишите нужный вам код на событие OnClick визуально все будет выглядеть как TButton [001951]

Содержание раздела