delphi 打造圆角窗口

delphi 制作圆角窗口

procedure TForm1.FormCreate(Sender: TObject);

var

? Hnd: THandle;

begin

? SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW and WS_EX_CLIENTEDGE and SWP_DRAWFRAME);

? Hnd := CreateRoundRectRGN(0, 0, Width, Height, 15, 15);

? SetWindowRGN(Handle, Hnd, True);

end;