一个有趣的tip: 用汉字作为Form的形状(100分)

Town · 1999-07-08

只要在程序中加入如下代码,即可使form变成汉字的形状. 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;

nuke · 1999-07-08

不错很不错，100分我都要！

Town · 1999-07-08

呵呵,下次给你,这次已经给别人了

rss · 1999-07-08

用此方法建汉字形状的按钮可能更实用.

lhxu · 1999-07-08

rss的建议非常不错,哪位大虾出手?

redforks · 1999-07-08

我试试看。

Schiesser · 1999-07-08

别忘了给我发一个。 ：-） <a href="mailto:c.k@263.net>谢了!</a>

redforks · 1999-07-08

明天要上课，按钮构件周末干活，下周出台！

Another_eYes · 1999-07-09

这么麻烦? 2小时可以搞定的....

redforks · 1999-07-09

小弟不才，不如请2小时的Another_eYes完成如何？

CJ · 1999-07-09

有什么用？好玩罢了，看FORMRGN，都已经做了。

menxin · 1999-07-09

here ^-^

Another_eYes · 1999-07-10

我是懒人, 不是必需的东西不做. 再说Town把核心原代码都写出来了, 2小时还搞不定?

redforks · 1999-07-10

既然，这么多人都认为没用。那就不做了吧！况且大侠2小时就能完成。我又何必花更 多的时间呢？ 需要时，拿出200分来。大侠2小时就可以挣200分，我又节省了大量时间。互利互惠。

hanson · 1999-07-17

好象没有那么简单吧？还是请redforks大侠出手搞定吧！ 别忘了给俺一份，先行谢过了！

Town · 1999-09-17

多人接受答案了。

wangrui · 1999-09-27

Town:  我试了你的程序,好象不行呀 ? 光秃秃的一个窗口,什么也没有.

一个有趣的tip: 用汉字作为Form的形状(100分)

Town

Unregistered / Unconfirmed

nuke

Unregistered / Unconfirmed

Town

Unregistered / Unconfirmed

rss

Unregistered / Unconfirmed

lhxu

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

Schiesser

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

hanson

Unregistered / Unconfirmed

Town

Unregistered / Unconfirmed

wangrui

Unregistered / Unconfirmed

Similar threads