Este tutorial eu peguei na internet. Não testei e não sei o nome do autor!!!
Crie seu botão redondo ou outra forma, e outras opções:
Primeiro coloque um componente chamado Shape (em Additional), configure
as opções em Shape (círculo, elipse, quadrado, quadrado arredondado,
etc). Para denominar um "caption" para o "botão", posicione um label no
meio do Shape.
Adicionando comandos no Shape:
Para adicionar comandos no componente Shape, utilize o evento
OnContextPopup. Porém esse evento utiliza como clique o botão direito do
mouse, então deverá ser colocado o comando de inversão de botões do mouse.
Como?
No evento OnMouseMove do Shape, coloque o seguinte comando:
swapmousebutton(true);
Este comando inverterá os botões do mouse quando o mesmo for
utilizado. Porém caso os botões do mouse não forem "desinvertidos" o
mesmo funcionará "invertidamente". Então para resolver este problema,
coloque no evento OnMouseMove do Form(ou qualquer outro componente que
não seja o mesmo shape) o evento para remover a inversão:
swapmousebutton(false);
Você pode fazer com que o botão mude de cor (juntamente com o
label) quando o mouse passe por cima dele.
Para que isso ocorra, coloque no evento OnMouseMove do Shape
os comandos.
Ex.:
shapeX.brush.color:=clCORCORRESPONDENTE;
labelX.color:=clCORCORRESPONDENTE;
e para que volte a cor original, ou como estava antes de ter
modificado, coloque no evento OnMouseMove do form (ou qualquer outro
componente que esteja ao lado) os comandos:
shapeX.brush.color:=clCOR_ANTERIOR;
labelX.color:=clCOR_ANTERIOR;
(Observações: Coloque os comandos necessários não só no
OnContextPopup do Shape, mas também no evento OnClick do label, assim,
se o usuário clicar no label ao invés do shape, os comandos serão
executados igualmente).
(o efeito parecerá muito com os produzidos no flash, ao mover o mouve
para cima da figura, ela troca de cor, e ao tirar o mouse de cima da
figura, ela volta a cor normal).
Blz
