📄 step19990813.htm
字号:
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 3.0"><title>日机月累1999/08/13</title></head><body background="RainbowBkg.gif"><table border="0" width="100%" style="font-size: 9pt"> <tr> <td width="100%"><strong><font color="#0000FF"><a name="（1）">如何制作透明的FORM？</a><br> </font></strong>type<br> TForm1 = class(TForm)<br> private<br> { Private declarations }<br> PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;<br> public<br> end;<br> <br> PROCEDURE Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);<br> BEGIN<br> brush.style:=bsClear;<br> Inherited;<br> END;<br> <br> <b><br> <font color="#0000FF"><a name="（2）">渐变窗题背景的实现？</a></font></b><br> procedure TForm1.FormPaint(Sender: TObject);<br> var <br> i:word;<br> dy,y:real;<br> begin<br> dy:=clientheight/256;<br> y:=0;<br> for i:=255 downto 0 do<br> begin<br> canvas.brush.color:=$00000000+i*$10000;<br> canvas.fillrect(rect(0,round(y),clientwidth,round(y+dy)));<br> y:=y+dy;<br> end;<br> end;<hr size="1"> <p align="center"><a href="mailto:ilovedelphi@163.net">RainBow</a> 策划制作 版权所有</td> </tr></table></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -