創建圓矩形窗體我是這樣寫的:

procedure TFZ_Random.Button5Click(Sender: TObject);
var
r1:hwnd;
begin
r1 := CreateRoundRectRgn(0,0,300,300,50,50);
setwindowrgn(handle , r1, true);
end;

也不知道這樣的寫法是不是較好的方法,請問如果想要創建一個圓矩形按鈕又該如何寫?

下載自個兒看吧!

http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=84312