Delphi常用技巧

记录下一些经常用的技巧，免得到处搜索

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);

3、让窗口显示阴影

SetClassLong(Self.Handle, GCL_STYLE, GetClassLong(Self.Handle, GCL_STYLE)
    or CS_DROPSHADOW or WS_EX_LAYERED);