Radiobuttons (beschriftung) transparent machen?

[akkarin]

mom ich schau mal xD

[E]dit: ich hab die komponenten von der palattet gelöscht gehabt weil ich dachte sie funtzen net.. nu weiß ich net wie ich die wieder druffkrieg.. kann ich die irgentwie alle deinstallieren und dann die cfg neu installieren?

[E]dit2:
also wenn das mit der komponente garnicht geht, dann benutz ich halt eine etwas umständlichere methode =/
das mit der komponente wäre trotzdem besser =*(

Delphi-Quellcode:

Okay, here's a "hack" that might help you.

Firstly, remove any caption from the RadioButton, and use a transparent label instead.
That makes things much easier.

Secondly, make the RadioButton itself transparent. You can do this by specifying it's
window region. As far as I know, the circle is always centered vertically in the
TRadioButton's window region; it's left position is 1, it's diameter is 12 pixels. So
here's the source:

procedure TForm1.Button1Click(Sender: TObject);
var H: integer;
     region: HRGN;
begin
   H := (RadioButton1.Height+1) div 2;
   region := CreateEllipticRgn(1,H-6,13,H+6);
   SetWindowRgn(RadioButton1.Handle,region,true);
end;