📄 ddjl_1999.htm
字号:
<td width="100%"><img src="images/light.gif" alt="light.gif (985 字节)" WIDTH="12" HEIGHT="15"><span style="font-family: 宋体; font-size: 9pt"><font color="#FF0000">时间:1999年02月24日</font><br>
对于无边界窗体移动新方法:<br>
type<br>
TForm1 = class(TForm)<br>
ImageList1: TImageList;<br>
.<br>
.<br>
.<br>
procedure FormCreate(Sender: TObject);<br>
private<br>
{ Private declarations }<br>
procedure AppMessage(var Msg:TMsg);message
WM_LButtonDown;<br>
public<br>
{ Public declarations }<br>
end;<br>
<br>
var<br>
Form1: TForm1;<br>
<br>
implementation<br>
<br>
{$R *.DFM}<br>
procedure TForm1.AppMessage(var Msg:TMsg);<br>
begin<br>
SendMessage(Handle,WM_NCLButtonDown,HTCaption,GetMessagePos);<br>
end;<br>
end.</span></td>
</tr>
<tr>
<td width="100%"><img src="images/light.gif" alt="light.gif (985 字节)" WIDTH="12" HEIGHT="15"><span style="font-family: 宋体; font-size: 9pt"><font color="#FF0000">时间:1999年03月01日</font><br>
用程序设置打印纸张类型:<br>
var<br>
Device:Array[0..cchDeviceName-1] of Char;<br>
Driver:Array[0..(MAX_PATH-1)] of Char;<br>
Port:Array[0..32] of Char;<br>
hDMode:THandle;<br>
pDMode:PDevMode;<br>
begin<br>
Printer.GetPrinter(Device,Driver,Port,hDMode);<br>
if hDMode<>0 then<br>
begin<br>
pDMode:=GlobalLock(hDMode);<br>
if pDMode<>nil then<br>
begin<br>
pDMode^.dmPaperSize:=<u>DMPAPER_A5</u>;<br>
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE;<br>
GlobalUnLock(hDMode);<br>
end;<br>
end;<br>
end;</span></td>
</tr>
<tr>
<td width="100%"><img src="images/light.gif" WIDTH="12" HEIGHT="15"><span style="font-family: 宋体; font-size: 9pt"><font color="#FF0000">时间:1999年03月04日</font><br>
将进度条放到状态条上显示:<br>
1.设状态条某一节的Style为psOwnerDraw.<br>
2.在状态条的OnDrawPanel时间中写入如下代码:<br>
ProgressBar1.Parent:=StatusBar1;<br>
ProgressBar1.Left:=Rect.Left;<br>
ProgressBar1.Top:=Rect.Top;<br>
ProgressBar1.Width:=Panel.Width;<br>
ProgressBar1.Height:=Rect.Bottom-Rect.Top;</span></td>
</tr>
<tr>
<td width="100%" class="font3"><img src="images/light.gif" WIDTH="12" HEIGHT="15"><font color="#FF0000">时间:1999年03月30日</font><br>
如何显示中文提示按钮的对话框:<br>
使用Application.MessageBox函数.<br>
例如:Application.MessageBox('提示','提示信息',MB_OKCANCEL);</td>
</tr>
<tr>
<td width="100%" class="font3"><img src="images/light.gif" WIDTH="12" HEIGHT="15"><font color="#FF0000">时间:1999年04月06日</font><br>
如何得知系统是否为中文版?<br>
函数GetSystemDefaultLangID可以得到Windows的缺省语言，<br>
返回值意义如下(部分):<br>
0x0404 Chinese (Taiwan)<br>
0x0804 Chinese (PRC)<br>
0x0c04 Chinese (Hong Kong)<br>
0x1004 Chinese (Singapore)</td>
</tr>
<tr>
<td width="100%" class="font3"><img src="images/light.gif" WIDTH="12" HEIGHT="15"><font color="#FF0000">时间:1999年04月10日</font><br>
如何将资源文件中的位图显示在TImage构件中.<br>
var<br>
HMyMap:HBITMAP;<br>
begin<br>
HMyMap:=LoadBitMap(HInstance,位图在资源文件中的名称);<br>
Image1.Picture.BitMap.Handle:=HMyBitMap;</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!-- 以上table为现有子站点的主体内容，下面是模版内容-->
<p align="center"><!--webbot bot="ImageMap" rectangle="(622,13) (760,25) http://www.yesite.com" rectangle="(568,13) (600,25) http://stamp.yesite.com" rectangle="(533,12) (563,25) http://programs.yesite.com" rectangle="(480,12) (528,25) http://shareware.yesite.com" rectangle="(445,13) (475,25) http://vote.yesite.com" rectangle="(411,13) (440,25) http://photo.yesite.com" rectangle="(376,13) (406,25) http://manu.yesite.com" rectangle="(339,13) (370,25) http://sport.yesite.com" rectangle="(305,13) (335,25) http://gogo.yesite.com" rectangle="(272,13) (299,24) http://travel.yesite.com" rectangle="(235,12) (266,25) http://joke.yesite.com" rectangle="(201,13) (231,24) http://et.yesite.com" rectangle="(166,13) (194,25) http://geci.yesite.com" rectangle="(131,12) (159,25) http://game.yesite.com" rectangle="(95,12) (126,26) http://soft.yesite.com" rectangle="(61,12) (91,25) http://desktop.yesite.com" src="images/nav.gif" border="0" startspan --><MAP NAME="FrontPageMap1"><AREA SHAPE="RECT" COORDS="622, 13, 760, 25" HREF="http://www.yesite.com"><AREA SHAPE="RECT" COORDS="568, 13, 600, 25" HREF="http://stamp.yesite.com"><AREA SHAPE="RECT" COORDS="533, 12, 563, 25" HREF="http://programs.yesite.com"><AREA SHAPE="RECT" COORDS="480, 12, 528, 25" HREF="http://shareware.yesite.com"><AREA SHAPE="RECT" COORDS="445, 13, 475, 25" HREF="http://vote.yesite.com"><AREA SHAPE="RECT" COORDS="411, 13, 440, 25" HREF="http://photo.yesite.com"><AREA SHAPE="RECT" COORDS="376, 13, 406, 25" HREF="http://manu.yesite.com"><AREA SHAPE="RECT" COORDS="339, 13, 370, 25" HREF="http://sport.yesite.com"><AREA SHAPE="RECT" COORDS="305, 13, 335, 25" HREF="http://gogo.yesite.com"><AREA SHAPE="RECT" COORDS="272, 13, 299, 24" HREF="http://travel.yesite.com"><AREA SHAPE="RECT" COORDS="235, 12, 266, 25" HREF="http://joke.yesite.com"><AREA SHAPE="RECT" COORDS="201, 13, 231, 24" HREF="http://et.yesite.com"><AREA SHAPE="RECT" COORDS="166, 13, 194, 25" HREF="http://geci.yesite.com"><AREA SHAPE="RECT" COORDS="131, 12, 159, 25" HREF="http://game.yesite.com"><AREA SHAPE="RECT" COORDS="95, 12, 126, 26" HREF="http://soft.yesite.com"><AREA SHAPE="RECT" COORDS="61, 12, 91, 25" HREF="http://desktop.yesite.com"></MAP><a href="../_vti_bin/shtml.exe/d3/ddjl_1999.htm/map1"><img src="images/nav.gif" border="0" ismap usemap="#FrontPageMap1"></a><!--webbot bot="ImageMap" endspan i-checksum="28877" --> </p>
<div align="center"><center>
<table align="center">
<tr>
<td valign="top" align="center" class="font3">广州热讯信息有限公司<br>
版权所有1998-1999<br>
<a href="mailto:webmaster@yesite.com">webmaster@yesite.com</a> </td>
</tr>
</table>
</center></div>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><br>
</p>
<p align="center"> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -