现在的窗体都是横平竖直的,怎么让他转动一个角度显示?
解决方案 »
- 李维《Inside VCL》中说到的拥有GUID的接口和COM接口
- 条码打印问题
- 谁有能访问FIREBIRD 1.5的免费 DBEXPRESS FOR FIREBIRD 1.5 重谢啊
- 事务的用法,急!在线等!!
- 请教一下这个错误应该如何修改??
- 如何获得jpg和bmp图象的长和宽
- delphi中文件以二进制操作的函数???
- Delphi界面工作一段时间后易跳消失的原因,求教各位。
- 求救,怎么实现文件的操作。
- 我做单机版的数据库程序,用PARADOS好,还是用ADO+ACCESS,好有什么根据?
- 比如说我在一个目录里面选择了多个文件,我如何得到这些所选中的文件名呢
- 怎么样用给DBGRID中的没有和数据源关联的一列赋值?
这种想法有什么好奇怪的,我每天看着同样的窗体烦了,换个样子不行呀。
微软肯定知道怎么做,只不过它给提供的api函数好像找不到(反正我找不到)
createwindow只能创建横平竖直四四方方的窗体。
开个玩笑不行嘛
来给你一个怪模怪样的(转贴)
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;