hi kennt jemand eine möglichkeit, buttons rund oder in anderen formen darzustellen?
Announcement
Collapse
No announcement yet.
runde buttons
Collapse
X
-
Hallo,
ich habe folgenden Quelltext gefunden, um Buttons rund zu machen:
<pre>
procedure ButtonStyle(aFrm: TForm);
var
aRgn: hRgn;
tmp : TComponent;
i : integer;
begin
for i:= aFrm.ComponentCount-1 downto 0 do
begin
if (aFrmcomponents[i] is TButton) then
begin
tmp:=aFrm.components[i];
with TButton(tmp) do
begin
aRgn:= createRoundRectRgn(0, 0, width, height, 20, 20);
setWindowRgn(handle, aRgn, true);
end;
end;
end;
end;</pre>
Nun muß man den Button nur noch anmalen oder mit einem Bitmap füllen.<br><br>Gruß Alex.<br>PS: Komponenten installiert man, in dem man das Menü: Component->install Component wählt und die entsprechenden Optionen auswählt
Comment
Comment