Красота спасет мир
Можно вставить 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;
Получается очень красиво. Все восхищаются и вокруг счастье
|