myamanda

摘要： 一种方法就是将应用程序直接加到开始菜单的启动菜单中。此外。你还可以在注册表中添加适当的键并赋值，就像以下所示：procedure TForm1.Button1Click(Sender: TObject); begin SetRegistryData(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Run', App... 阅读全文

摘要： 为什么Windows的系统菜单总是一成不变？这个例子教你如何往系统菜单添加一个菜单项如about或information等。这个例子将一个菜单项加到系统菜单中去。我们需要两个东西，一个是项名，这可以是如何整数；我们还需要一个程序去收取Windows对确认点击我们创建的菜单项的信息。 Unit OhYeah; Interface Uses SysUtils, WinTypes, WinProcs... 阅读全文

摘要： 有时候我们为了多项应用而要管理Windows的信息。我们怎样才能做到呢？{ 这个例子定义的程序可以收取所有发往主窗口的信息 } Unit TesteandoEsta; Interface Uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus; Type T... 阅读全文

摘要： 我们可以以onCreate事件做一个例子 Procedure TForm1.FormCreate (Sender : TObject); Begin SetWindowLong (Handle, GWL_STYLE, GetWindowLong (Handle, GWL_STYLE) AND NOT WS_CAPTION); ClientHeight:=Height; End; 阅读全文

摘要： Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; Implementation Uses SysUtils; Function CpuType : T... 阅读全文

摘要： 在Delphi中，编程人员利用Quick Report控件可以方便地设计和实现静态报表，但对动态报表的制作仍有不便之处。如制作一个列表式报表时，如何动态调节每一列的宽度？由于报表在预览情况下不能修改，只能在预览前将宽度设定好，因此，如何比较方便地预先设定宽度，就成了一个需要解决的问题。 分析问题 首先可想到一种笨办法，就是在确定报表中需要显示的字段后，对每一个字段的宽度赋予一个初始值（比如80），... 阅读全文

摘要： TclientDataSet控件是在Delphi中设计多层分布式数据库程序的核心控件，在Delphi3中它最早出现，在Delphi4和Delphi5中得到了进一步加强。TclientDataSet控件具有强大的功能，无论是单层、两层C/S和多层结构都可以使用TclientDataSet控件。从borland公司的公布的资料看，它的功能还将得到不断增强，本文主要介绍利用TclientDataSet控... 阅读全文

摘要： 程序在不同分辨率的打印机（如180dpi的针式打印机和600dpi的激光打印机）上打印表格，效果会完全不同。如作者以针打作为他的输出打印机设计的程序，在激光打印机上输出，就会发现表格和文字错位，而且表格会打印得很小。而且原文中打印坐标的确定，必须靠反复的试验才能达到比较满意的效果。 　　针对原目标，首先在窗体上添加一个DBGrid来显示我们所要打印的数据，在这里，DBGrid不只是起到显示数据的作... 阅读全文

摘要： Windows环境下的实时采集越来越多,但如何实现一台计算机控制下的两台打印机或多台打印机分时输出却困难重重,这主要是由于Windows的页式输出方式造成的。 LIBRARY MYDLL;VAR CHARAL,PORTDX:BYTE;FUNCTION PRINTCHAR(CHARAL,PORTDX:BYTE):INTEGER;EXPORT;BEGIN;ASM;MOV AL,CHARALMOV DL... 阅读全文

摘要： 用DELPHI编写特殊报表 广西省 韦明 ---- 我用DELPHI为某单位编写信息管理系统时，财务要求工资统计等报表每一页的最后一行都应有合计。用DELPHI提供的TQuidkRep部件的HasSummary边条制作时是每一个报表的最后一页才有合计，不符合财务要求。虽然不用TQuidkRep部件重头开始编程编写报表打印可以做到每页有合计，但工作量极大。能不能用QReport面板下提供的部件完成呢... 阅读全文