Button Design

[Thunderchild]

Mache Dir ein tImage und setze das Bild rein. Wenn Du das nicht Benutzerdefiniert machen willst (also unveränderbar), kannst Du über onMouseDown die Koordinate des Klicks im Element ermitteln und dann in der Ereignisprozedur errechnen, ob der Klick im Kreis ist, z.B. über eine Abstandsberechnung zum Kreismittelpunkt.

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const mx=50; my=50; // Beispiel-Koordinaten des Mittelpunkts im Element
var abstand:real;
begin
  abstand:=sqrt((mx-x)*(mx-x)+(my-y)*(my-y)); // Pythagoras
  if abstand<30 then aktionAusfuehren         // 30 als Beispielradius
end;