标题问题,做一个大小为0的窗口,并ShowModal;
解决方案 »
- 如何让非窗口组件接收移动消息
- 一个程序出错,请高手帮帮忙!!急!
- 为什么我使用WideCharToMultiByte()函数转换的数据变样了?
- tcombobox中无法输入中文
- 请问,除了MediaPlayer控件外,有什么其他方式直接控制光驱的弹出和关闭
- 问一下,怎么判断已经断开网络?
- 关于d7中的tcpserver/client的问题,在线等!!
- mts(com+)问题,我在windows2000下安装的mts(com+),如何让所有的用户不经过权限检查即可调用
- 从Internet时间服务器获取标准格林尼治时间
- 应用程序服务器用什么方式比较好?
- 考试
- 我正在学习Delphi,请问用哪个版本好?
procedure TForm1.FormCreate(Sender: TObject);
var rgn:HRGN;
begin
Form1.Color:=clRed;
BeginPath(Canvas.Handle);
SetBKMode(Canvas.Handle,TRANSPARENT);
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=200;
Canvas.TextOut(150,130,'黄昏狼');
EndPath(Canvas.Handle);
rgn:=PathToRegion(Canvas.Handle);
SetWindowRgn(Handle,rgn,true);
end;