紧急！关于窗体的控制！

Question

窗体的BorderStyle设为bsNone，就没有四边。参考一般的Delphi技巧书籍，“如何产生不规则窗体”。如《Delphi 6.0 实用开发指南》 电子工业出版社

Answer 1

win32 api：
CreateRoundRectRgn
SetWindowRgn
等函数

Answer 2

例：
var
  H :THandle;
procedure TCyan.FormCreate(Sender: TObject);
begin
  BorderStyle := bsNone;
  H := CreateRoundRectRgn(50, 50, Width, Height, 50, 50);
  SetWindowRgn(Handle, H, True); 
end;

Answer 3

BorderStyle := bsNone;
这样的话，窗体就不能改变大小了，我需要的是可以拖动窗体边框改变窗体的大小！

Answer 4

http://mydelphi.8u8.com/ym2.htm
看看“电子日历界面”