记录下一些经常用的技巧,免得到处搜索
1、设置窗体为圆角矩形
var
rgn: HRGN;
begin
//通常写到窗体Create事件里
rgn := CreateRoundRectRgn(0, 0, self.Width, Self.Height, 8, 8);
SetWindowRgn(Self.Handle, rgn, True);
end;
2、使窗口不显示在任务栏上
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
SetClassLong(Self.Handle, GCL_STYLE, GetClassLong(Self.Handle, GCL_STYLE)
or CS_DROPSHADOW or WS_EX_LAYERED);