Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: runden Button

    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

  Re: runden Button

    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