Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
10. Dez 2004
Hier mal Source für einen ganze einfachen Runden Button der nur ein OnClick hat.
type
TRundBtn = class(TCustomControl)
private
fIsDown: Boolean;
fNeedsFormSet: Boolean;
procedure fDownProc(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure fUpProc(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
public
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
10. Dez 2004
die bisher gepostete Variante malt nur etwas rundes. Einen Button wirklich rund machen kannst du so
var LRgn: HRGN;
begin
LRgn := CreateEllipticRgn(0, 0, Button1.Width, Button1.Height);
SetWindowRgn(Button1.Handle, LRgn, True);
DeleteObject(LRgn);
Anstelle von Button1 kannst du auch jedes anderen WinControl nehmen