方形窗口怎样才能变成圆角窗口(win98下)!(50分)

凝雨

Unregistered / Unconfirmed
GUEST, unregistred user!
最好能给一个实例哦 谢谢!!!!!
 
用第三方控件不就得了
 
procedure TForm1.Button1Click(Sender: TObject);
var
Rgn: HRgn;
begin
Rgn:=CreateRoundRectRgn(0, 0, Width, Height, 50, 50);
SetWindowRgn(Handle, Rgn, True)
end;
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
745
DelphiTeacher的专栏
D
D
回复
0
查看
747
DelphiTeacher的专栏
D
S
回复
0
查看
955
SUNSTONE的Delphi笔记
S
顶部