Wie die Ecken eines (Speed)Buttons abrunden?

[dopeline]

Hi Leutz!

Ich will die Ecken von den Speedbutton abrunden. wie mache ich das am besten?

Grüße, dopeline :dancer:

[Daniel B]

Hallo,

siehe hier.
Ist zwar fürs Formular, hat aber schonmal jemand auf einem Button umgesezt, sollte also auch beim SpeedButton klappen. ;)

Grüsse, Daniel :hi:

[Christian Seehase]

Moin Daniel,

das dürfte nicht gehen, da TSpeedButton von TGraphicControl abgeleitet ist, und somit kein Handle hat.

[dopeline]

jo das funzt net:

Code:

procedure TForm1.FormCreate(Sender: TObject); 
var 
  CLFRgn: HRgn; 
begin 
  CLFRgn := CreateEllipticRgn(0, 0, Form1.Width, Form1.Height); 
  SetWindowRgn(Form1.Handle, CLFRgn, True); 
end;

sagt er mir "Undefinierter Bezeichner: 'Handle'"

wie Christian Seehase schon gesagt hat. da muss es doch noch ne andere möglichkeit geben. in der hilfe steht nichts dazu. :?