怎么做一个任意形状的组件?请各位大侠指点!!!!!!!!! 请看《delphi 编程技巧》系统与多媒体篇 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你可以参考一下以下的代码!用汉字做窗体形状procedure TForm1.FormCreate(Sender: TObject);varrgn:HRGN;begin BeginPath(Canvas.Handle); SetBkMode( Canvas.Handle, TRANSPARENT ); Canvas.Font.Name:= '宋体'; Canvas.Font.Size:=100; Canvas.TextOut( 20, 20, '漂亮吗?');//用"漂亮吗?"作为form的形状 EndPath(Canvas.Handle); rgn:= PathToRegion(Canvas.Handle); SetWindowRgn( Handle, rgn, true );end; 如何让Listview滚动到选择的节点? 请教 delphi字符串带(非与或符合 &&,||,!),想把他解释成if (...) then 语句,请教怎么做呢? 如何实现文件上传功能,高手请帮帮忙。 欢迎大家进来看看~!! 文本文件的基本操作的问题 建立同构表 将窗口标题加入到菜单 做mdi应用程序的问题 如何改变一个BITMAP/JPEG图片的整个幅面尺寸大小? 请问如何让TImage移动的时候不闪烁?或者说减少闪烁?有何良策? 请问各位在Delphi中怎样把pagecontrol上面的头(TabSheet1,TabSheet2...)去掉 请教产生随机数值函数Random的用法
用汉字做窗体形状
procedure TForm1.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
BeginPath(Canvas.Handle);
SetBkMode( Canvas.Handle, TRANSPARENT );
Canvas.Font.Name:= '宋体';
Canvas.Font.Size:=100;
Canvas.TextOut( 20, 20, '漂亮吗?');//用"漂亮吗?"作为form的形状
EndPath(Canvas.Handle);
rgn:= PathToRegion(Canvas.Handle);
SetWindowRgn( Handle, rgn, true );
end;