如果不用不规则窗体模拟，怎么实现倾斜的窗口？

Question

现在的窗体都是横平竖直的，怎么让他转动一个角度显示？

Answer 1

把显示器旋转90度，可以解决此问题！～～再提供一种变态的方法～～利用TForm.PaintTo()把窗体绘制在Bitmap上，然后把Bitmap旋转90度放在窗体上～～

Answer 2

楼上的这位怎么了？
这种想法有什么好奇怪的，我每天看着同样的窗体烦了，换个样子不行呀。
微软肯定知道怎么做，只不过它给提供的api函数好像找不到（反正我找不到）
createwindow只能创建横平竖直四四方方的窗体。

Answer 3

哈哈
开个玩笑不行嘛
来给你一个怪模怪样的（转贴）
procedure TForm1.Timer1Timer(Sender: TObject);
var
  rgn:HRGN;
begin
  Color:=clRed;
  BeginPath(Canvas.Handle);
  SetBKMode(Canvas.Handle,TRANSPARENT);
  Canvas.Font.Name:='宋体';
  Canvas.Font.Size:=32;
  Canvas.TextOut(50,60,FormatDateTime('hh:mm:ss',now));
  Canvas.Ellipse(200-60,200-60,200+60,200+30);
  Canvas.Ellipse(200-65,200-65,200+65,200+35);
  Canvas.Ellipse(200-60+25,200-60,200+60+25,200+30);
  Canvas.MoveTo(20,50);
  Canvas.LineTo(60,70);
  Canvas.LineTo(60,150);
  Canvas.LineTo(30,120);
  Canvas.LineTo(20,50);
  EndPath(Canvas.Handle);
  rgn:=PathToRegion(Canvas.Handle);
  SetWindowRgn(Handle,rgn,true);
end;