創建圓矩形窗體我是這樣寫的:
procedure TFZ_Random.Button5Click(Sender: TObject);var r1:hwnd;beginr1 := 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