[Dimanus]

Приветствую. И всем известно что от хорошо оформленного приложения зависит много, так вот я тут пытался стандартные компоненты такие как
TImage, Tbutton сделать скажем овальные, или как то срезать углы,Image должен быть с картинкой, а лучше использовать BitBtn, но как их сделать на форме овальными или одного из них, а может другой компанент для этих целей используется? Слышал что Марко Кенту это описывал но его сейчас нет, может у кого есть соображения на этот счёт, буду благодарен если поделитесь. Спасибо.

[merdashka]

Можно вставить SpeedButton в него загрузить картинку с овальной кнопкой на фоне цвет которого совпадает с цветом формы. Размер SpeedButton подогнать по картинке. Аналогично можно поступить с Image даже сделать из Image кнопку. Если из Imageделать кнопку то нужно прописать:

procedure TfrmMain.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := Image1.Left + 1;
Image1.Top := Image1.Top + 1;
end;

procedure TfrmMain.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := Image1.Left - 1;
Image1.Top := Image1.Top - 1;
end;

Получается очень красиво. Все восхищаются и вокруг счастье