关于按钮的问题

Question

delphi里能不能作圆角按钮？？？要是可以的话，应该怎么作

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
    BtnRgn : HRGN;
    TestBtn: TButton;
begin
    TestBtn := TButton.Create( self );    TestBtn.Parent := Form1;
    TestBtn.Left   := 30;
    TestBtn.Top    := 30;
    TestBtn.Width  := 120;
    TestBtn.Height := 30;
    TestBtn.Caption:= 'Round Btn';
    TestBtn.Visible:= true;    BtnRgn := CreateRoundRectRgn ( 0, 0, TestBtn.Width, TestBtn.Height, 8, 8 );
    SetWindowRgn ( TestBtn.Handle, BtnRgn, true );
end;