2013年08月_delphi308

12月 11月 09月 08月 07月 06月 05月 03月 01月

转载 delphi中TTreeView的使用方法

【学习万一老师博客摘要】TTreeView 与两个重要的类相关：TTreeNodes、TTreeNode 。TTreeNodes即是TTreeView 的Items属性，TTreeNodes是TTreeNode的合集，TTreeNode代表的是TTreeView的节点，不按主从关系，节点依次存储在Items中。TTreeView的Select方法用来指定TTreeView选

2013-08-27 15:19:35 3000

转载 DelPhi Treeview 操作实例 onclick节点 treeview1.Selected.Level

怎么改变Treeview中的图标? OnClick事件Click获取Node.text 批量处理及实现TreeView结点拖拽的实例//这个过程根据你的要求选择图标procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);begin if Node.HasChildren then

2013-08-20 21:05:41 12035

转载 Delphi FastReport动态加载图片

以前用FastReport制作报表,从来没有打印过图片,这段时间做了个打印个人简历的程序，需要打印照片。试着在frreport模板中加载照片没问题，可是想要动态的装载照片要怎么做呢，我的要求是将个人简历包括照片存放在数据库中，在用户查看简历时，先将简历数据载入，照片放在IMAGE控件中，如果要打印，点击[打印]按钮即可。由于每个人的简历照片都不同，所以只能在打印时装入照片。上

2013-08-17 19:41:21 6715 1

转载运行程序提示access violation at address的解决方法

现在把解决方法公布出来：　　右击“我的电脑”。单击“属性”。　　在“系统属性”中单击“高级”。　　在“性能”中单击“设置”。　　在“性能选项”中单击“数据执行保护”。　　单击“添加”。选择要运行的程序。　　OK。就这么简单。 Access Violation（非法访问）错误的解决方法 Access Violation（非法访问），Gene

2013-08-14 14:26:32 8139

转载 DELPHI读取网页源文件和获取字符串

嗯，这个是前几天弄网页下载工具的时候查找到的，帮助很大，保存一份说到网页采集，通常大家以为到网上偷数据，然后把到收集到的数据挂到自己网上去其实也可以将采集到的数据做为公司的参考，或把收集的数据跟自己公司的业务做对比等目前网页采集多为3P代码为多（3P即ASPPHP JSP）用得最有代表的就动易科技公司BBS中新闻采集系统，和网上流传的新浪新闻采集系统等都是用ASP程序来使用，但速度从

2013-08-12 21:56:28 960

转载如何取得 fontdialog 的字体名称、大小等内容

怎么取得 fontdialog 的字体名称、大小等内容把这些内容放在字符串里 kaida (2006-11-21 10:41:15) procedure TForm1.Button1Click(Sender: TObject);var font:TFont;begin if FontDialog1.Execute then begin font:=F

2013-08-12 15:13:13 1873

转载 delphi开发实例：保存字体设置的方法

记得一年前软件里面用到字体设置时，想把字体信息保存到配置文件里面都是把相应的属性分开来保存一下，这样一直使用，最近想delphi自己的dfm文件也同样会保存这些信息，它又是怎样保存的呢。。用记事本打开dfm文件会看到类似这样的文本： object Label1: TLabel Left = 24 Top = 32 Width = 140 Height = 46

2013-08-11 22:37:22 3116

转载 Delphi遍历控件

1.如何遍历一个panel中所有的控件？Var i: integer;begin for i:=0 to Panel1.ControlCount do begin // 控件: Panel1.Controls[i] // 加入自己代码 end;end; 2. 有10个EDIT控件，取名为EDT1，EDT

2013-08-11 13:50:45 2669

转载 Delphi控制打印机

1、获取打印机状态信息下面的代码可以判断所选打印机是否支持双面打印。如返回值为1，则表示支持双面打印，返回值为0则表示不支持。DeviceCapabilitiesA(Device,Port,DC_DVPLEX,nil,nil);下面的代码可以获得一个打印机最多能复制的份数：DeviceCapabilitiesA(Device,Port,DC_COPIE

2013-08-10 14:45:51 7585

原创 Delph各种问题汇总（不断更新中）

问题1：delphi中让窗体不出现放大按钮,怎样实现?解答：把窗体BroderIcons-->biMaximize False掉

2013-08-10 06:16:24 1948

转载在fastReport中使用自定义变量

fastreport中关于打印自定义变量的问题提出的问题比如说我现在有一个字符串变量str，要在报表打印的标题中包含有此变量 , 怎么样弄呢？ form1.str是那个变量, form1.frReport1是报表对象 .回答: frVariables['value'] := form1.str;

2013-08-09 13:26:32 7260

转载 Delphi遍历所有控件

方法一：（经测试，行得通）var i:integer;begin for i:= 0 to ComponentCount -1 do begin if (Components[i] is TEdit) and (TEdit(Components[i]).color = clred) then TEdit(Components[i]).Left:=T

2013-08-08 23:21:41 5127

转载判断两个键同时按下，这里是两个方向键

原文：http://hi.baidu.com/gezhou/blog/item/4bf712b326cc94a2d8335af0.html使用GetKeyboardState来判断键盘按键状态，判断用户是否同时按下上键和左键procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState

2013-08-08 21:51:01 10005

转载 Delphi实现窗体控件自由移动

Delphi实现窗体控件自由移动2008-04-25 16:22在做Mis项目过程中，有时需要让用户自己来实现窗体控件的布局，比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能，必须做好三件事：　　1、设置进入控件边缘的光标形状；　　2、改变控件的大小及位置；　　3、保存窗体控件的位置及状态，窗体下次启动时重新设置它们的这些信息。具体步骤如下：　　1

2013-08-08 21:10:14 3414

转载 delphi控件使用

Standard页1- Tlistbox控件重要属性items.*举例，界面设计如下左，执行结果如下右：代码为procedure TForm1.Button1Click(Sender: TObject);beginedit1.Text := listbox1.Items.CommaText;edit2.Tex

2013-08-08 21:07:08 13334

转载 Delphi实现控件的移动、改变大小

关键词:实现控件的移动、改变大小实现控件的移动，改变大小（DELPHI实现）主要使用Perform方法 function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint; 只要能够使用类似于win32API的函数SendMessage()，本方法同样可在其他环境里应用。用Delphi实现首

2013-08-08 17:07:31 2565

转载记忆Delphi窗体上控件的位置和大小

记忆Delphi窗体上控件的位置和大小如果允许用户在运行时移动控件和调整控件大小，你必须确保在窗体关闭时保存控件的位置，窗体创建/加载时恢复每个控件的位置。以下是如何在INI文件中存储的每个窗体上的控件的左，上，宽度和高度属性。接下来的两个程序WriteControlPlacement和ReadControlPlacement用Delphi的ini文件来存储和恢复窗体上每一个控

2013-08-08 16:53:55 3530

转载 Delphi中获取打印机设备名和端口名

uses printers;procedure TForm1.Button1Click(Sender: TObject);var pDevice : pChar; pDriver : pChar; pPort : pChar; hDMode : THandle;begin if PrintDialog1.Execute then begin

2013-08-07 17:32:40 2616

转载 delphi 取得本机打印机列表及打印机详细信息

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,WinSpool,Printers ,StdCtrls;type TPrinterInfo = record SeverName

2013-08-07 17:17:10 6682 1

转载 Delphi枚举出系统所有的打印机

在dialog->prints->printersetupdialog1在程序中printersetupdialog1.execute

2013-08-07 15:49:07 5569

转载在delphi中读取Excel数据

注：本文摘自网络，转载请注明： ( 一 ) 使用动态创建的方法首先创建 Excel 对象，使用ComObj :Var ExcelApp : Variant ; ExcelApp := CreateOleObject ( '' Excel.Application '' ) ; 1 ) 显示当前窗口： ExcelApp.Visible :=

2013-08-02 22:10:24 5278

转载报错：OLE Error 800A03EC

在把数据保存为excel时会报这个错：OLE Error 800A03EC一般是由下面几个造成的：1、缺少这个：use ComObj, 没有引用单元文件；2、没有创建OLE对象直接引用了，应该这样：MyExcel:=CreateOleObject(Excel.Application);3、对单元格赋值或赋表达式不正确导致的，或超出excel可识别值的范围；

2013-08-02 22:09:42 9574