Button - цвет

[mihali4]

Сообщение от Chudo4258

Но только одно но панель не создает эффекта нажатия кнопки

Ну-у-у, это же очень просто:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1.Left:=Pane1.Left+2;
Panel1.Top:=Panel1.Top-2;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1.Left:=Panel1.Left-2; или лучше - Panel1.Left:=исходное значение
Panel1.Top:=Panel1.Top+2; или лучше - Panel1.Top:=исходное значение
end;

[DomiNick]

Ого, такой код вставлять, только для того чтобы форма выглядела покрассивее помоему нет смысла

А попробуйте добавить на форму компонент "XPManifest" с вкладки "Win32"...
Тогда к кнопкам будет применяться установленный MSSTYLE...

В крайнем случае можно установить AlphaSkins...

[Levsha100]

Сообщение от mihali4

Ну-у-у, это же очень просто:...

Либо просто изменить стиль, те выпуклый, вдавленный,и тип обводки