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]