myamanda

博客园 首页 新随笔 联系 订阅 管理
上一页 1 ··· 3 4 5 6 7 8 9 10 11 ··· 21 下一页

2009年10月14日 #

摘要: 为什么Windows的系统菜单总是一成不变?这个例子教你如何往系统菜单添加一个菜单项如about或information等。这个例子将一个菜单项加到系统菜单中去。我们需要两个东西,一个是项名,这可以是如何整数;我们还需要一个程序去收取Windows对确认点击我们创建的菜单项的信息。 Unit OhYeah; Interface Uses SysUtils, WinTypes, WinProcs... 阅读全文
posted @ 2009-10-14 11:50 myamanda 阅读(231) 评论(0) 推荐(0)

摘要: 有时候我们为了多项应用而要管理Windows的信息。我们怎样才能做到呢?{ 这个例子定义的程序可以收取所有发往主窗口的信息 } Unit TesteandoEsta; Interface Uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus; Type T... 阅读全文
posted @ 2009-10-14 11:49 myamanda 阅读(161) 评论(0) 推荐(0)

摘要: 我们可以以onCreate事件做一个例子 Procedure TForm1.FormCreate (Sender : TObject); Begin SetWindowLong (Handle, GWL_STYLE, GetWindowLong (Handle, GWL_STYLE) AND NOT WS_CAPTION); ClientHeight:=Height; End; 阅读全文
posted @ 2009-10-14 11:49 myamanda 阅读(171) 评论(0) 推荐(0)

摘要: Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; Implementation Uses SysUtils; Function CpuType : T... 阅读全文
posted @ 2009-10-14 11:48 myamanda 阅读(418) 评论(0) 推荐(0)

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

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

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

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

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

2009年9月22日 #

摘要: 一、问题的提出 ---- Delphi作为强大的数据库开发工具,正被愈来愈多的编程人员所采用,"聪明的程序员用Delphi"更形象生动的道出广大程序员的心声,但这并不意味着所有功能的实现都非常容易,例如,笔者在开发军队的某个信息系统中,就在为数据分析模块中DecisionGrid1控件的数据进行报表输出时走了不少的弯路。广大的Delphi的爱好者在今后的学习或工作中也有可能会遇到类似的问题,而... 阅读全文
posted @ 2009-09-22 14:42 myamanda 阅读(597) 评论(0) 推荐(0)

上一页 1 ··· 3 4 5 6 7 8 9 10 11 ··· 21 下一页