03 2009 档案

一次删除多条记录
摘要：procedure TForm1.Button1Click(Sender: TObject); var tempBookMark: TBookMark; begin if DBGrid1.SelectedRows.Count >1 then s:= '真的要删除这些记录吗?'; if Application.MessageBox (Pchar(s),'删除多条记录',mb_iconi... 阅读全文
posted @ 2009-03-31 00:00 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(278) 评论(0) 推荐(0)
让你的电脑像飞一样（89k)-德国出品
摘要：@echo off cls rem Copyright (C) 2003-05 Ansgar Wiechers & Torsten Mann rem Contact: admin@ntsvcfg.de rem rem This program is free software; you can redistribute it and/or modify it under rem the terms... 阅读全文
posted @ 2009-03-30 23:19 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(332) 评论(0) 推荐(0)
prototype-1.4.0注释版
摘要：prototype框架最早是出于方便Ruby开发人员进行JavaScript开发所构建的，从这个版本上更加体现的淋漓尽致。 比起1.3.1版本，1.4.0中的编程思想和技巧更加令人拍案叫绝，对于开拓编程思路很有帮助。 该版本主要加入了迭代器思想，也是Ruby中的一个核心概念，从而使用此框架进行JavaScript开发几乎可以避免for循环的使用。 下面是部分代码： /* Prototype... 阅读全文
posted @ 2009-03-30 23:03 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(185) 评论(0) 推荐(0)
使窗体的标题栏闪烁
摘要：FlashWindow(self.Handle,self.CheckBox1.Checked); 阅读全文
posted @ 2009-03-30 22:27 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(183) 评论(0) 推荐(0)
实时的透明窗体
摘要：procedure TForm1.TrackBar1Change(Sender: TObject); begin self.AlphaBlendValue:=self.TrackBar1.Max-self.TrackBar1.Position; end; procedure TForm1.FormCreate(Sender: TObject); begin self.AlphaBlend:... 阅读全文
posted @ 2009-03-30 22:26 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(176) 评论(0) 推荐(0)
PowerDesigner
摘要：PowerDesigner简介 PowerDesigner是Sybase公司的CASE工具集，使用它可以方便地对管理信息系统进行分析设计，它几乎包括了数据库模型设计的全过程。利用PowerDesigner可以制作数据流程图、概念数据模型、物理数据模型，可以生成多种客户端开发工具的应用程序，还可为数据仓库制作结构模型，也能对团队设计模型进行控制。它可与许多流行的数据库设计软件，例如：Power... 阅读全文
posted @ 2009-03-30 22:22 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(387) 评论(0) 推荐(0)
自绘XP风格菜单
摘要：这是以前写的代码，自绘XP风格的菜单，硬盘坏了后以为没了，最后写的一个软件要自定义风格，“翻箱倒柜”的终于在我可爱的古董机^_^上找到了一个应用的例子。还是把它放到Blog上来，即可共享又可作为备用 :) 把主菜单的OnMeasureItem指向MeasureMainItem、OnAdvancedDrawItem指向DrawMainItem，子菜单的OnMeasureItem指向Meas... 阅读全文
posted @ 2009-03-28 15:55 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(261) 评论(0) 推荐(0)
TOOLBAR 渐变效果
摘要：procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect; var DefaultDraw: Boolean); var i,j : Integer; Dct : TRect; begin j := ToolBar1.Height; for i:=0 to (ToolBar1.Width - 1) ... 阅读全文
posted @ 2009-03-28 00:36 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(252) 评论(0) 推荐(0)
提取可执行文件内部所有图标
摘要：var i: Integer; Large, Small: HICON; nIcons: Integer; begin if OpenDialog1.Execute then begin self.Image1.Canvas.Refresh; nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName... 阅读全文
posted @ 2009-03-27 23:53 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(207) 评论(0) 推荐(0)
动态设置应用程序的图标
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls; type TfrmMain = class(TForm) btnIcon: TButton; OpenDialo... 阅读全文
posted @ 2009-03-27 23:46 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(312) 评论(0) 推荐(0)
隐藏Windows的工具栏和桌面图标
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TfrmMain = class(TForm) CheckBox1: TCheckBox; CheckBox2: TCh... 阅读全文
posted @ 2009-03-27 23:33 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(543) 评论(0) 推荐(0)
获取驱动器容量
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) DriveComboBox1: TDriveComboBox; ... 阅读全文
posted @ 2009-03-27 23:31 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(183) 评论(0) 推荐(0)
打开控制面板
摘要：WinExec('rundll32.exe shell32.dll,Control_RunDLL',9); 阅读全文
posted @ 2009-03-27 23:25 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(144) 评论(0) 推荐(0)
获取指定文件的图标
摘要：var h:hIcon; IconIndex:word; begin h:=ExtractAssociatedIcon(HInstance,PChar(Application.Exename),IconIndex); DrawIcon(Form1.Canvas.Handle, 10, 10, h); end; 阅读全文
posted @ 2009-03-27 23:21 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(160) 评论(0) 推荐(0)
文件关联
摘要：var Reg: TRegistry; FileExt:String; FileType:String; MIMEType:String; ExecName:String; begin FileExt:='.test'; FileType:='Test File'; MIMETYPE:='text/plain'; ExecNa... 阅读全文
posted @ 2009-03-27 23:19 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(139) 评论(0) 推荐(0)
读写ini文件实例
摘要：procedure TForm1.FormCreate(Sender: TObject); var IniFile: TIniFile; begin IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Test.ini'); try if not FileExists(ExtractFilePath(paramstr(0... 阅读全文
posted @ 2009-03-27 23:15 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(195) 评论(0) 推荐(0)
设置TreeView中每个节点的颜色
摘要：procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); begin if Node.Text ='Red' then begin Sender.Can... 阅读全文
posted @ 2009-03-27 22:55 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(1642) 评论(0) 推荐(0)
在状态栏里面加入进度条
摘要：这是个例子， 放个TStatusBar 然后建立3个TStatusPanel, 下面的代码把 ProgressBar 放到了第二个格子里面了。 var P: TProgressBar; begin P:= TProgressBar.Create(self); p.Parent:= StatusBar1; p.Left:= StatusBar1.Panels[0].Width + S... 阅读全文
posted @ 2009-03-27 22:52 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(277) 评论(0) 推荐(0)
编辑框（Edit）
摘要：编辑框也是Windows程序中常用的组件，它主要用于输入单行文字。下面解释编辑框一些常用属性。 属性 说明 PasswordChar 这个属性在一些编辑... 阅读全文
posted @ 2009-03-27 21:49 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(523) 评论(0) 推荐(0)
单选按钮和复选框
摘要：单选按钮（RadioButton）和复选按框（CheckBox）都是很常用的组件，尤其是在对话框中。单选按钮（RadioButton）是一种具有排他性的选择组件，用户每一次只能选择其中的一个（在同一个容器组件中，如同一Form上或RadioBox中）。而复选框（CheckBox）则不同，可以同时选择多个。 两种组件都有一个Checked属性，用于标识和检测是否被选中。我们使用这两个组件，给上... 阅读全文
posted @ 2009-03-27 21:48 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(414) 评论(0) 推荐(0)
掩码编辑框（MaskEdit）
摘要：掩码编辑框（MaskEdit）是一种特殊的编辑框。使用它可以设计出许多复杂的输入 格式。在选用MaskEdit之后，需要为它设计一个输入格式。方法如下： 首先在窗体上将MaskEdit选中，在对象查看器（Object Inspector）中找到EditMask属性，双击它，弹出一个如下图所示的对话框。 对话框左上角的Input Mask编辑框用于输入掩码格式。掩码格式可以分为三部分，每个... 阅读全文
posted @ 2009-03-27 21:47 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(427) 评论(0) 推荐(0)
Memo组件
摘要：Edit和MaskEdit组件都只能编辑单行文本，Delphi的Memo组件提供了多行文本的编辑功能。下面解释Memo组件常用的属性。 属性 说明 Lines ... 阅读全文
posted @ 2009-03-27 21:46 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(354) 评论(0) 推荐(0)
ListView添加项目
摘要：var NewItem:TListItem; begin ListView1.Items.Clear; NewItem:=ListView1.Items.Add; NewItem.Caption:='01'; NewItem.SubItems.Add('商品名称'); NewItem.SubItems.Add('8折'); NewItem.SubIt... 阅读全文
posted @ 2009-03-26 21:32 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(300) 评论(0) 推荐(0)
PANEL中显示窗体
摘要：var frm: TForm2;//定义窗口类 begin PageControl1.activepage:=tabsheet1; if Panel1.ControlCount = 0 then begin frm := Tform2.Create(self); frm.Parent := Panel1; frm.BorderStyle := bsnone; ... 阅读全文
posted @ 2009-03-26 16:12 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(1172) 评论(0) 推荐(0)
ImageList 载入图片
摘要：Var aBitmap: TBitmap; begin aBitmap := TBitmap.Create; try aBitmap.LoadFromFile('00.bmp'); ImageList1.AddMasked(aBitmap, aBitmap.TransparentColor); finally aBitmap.Free; end; end... 阅读全文
posted @ 2009-03-25 21:25 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(534) 评论(0) 推荐(0)
文本编辑器的设计
摘要：本章介绍多文本界面(MDI)、多页面界面(MPI)技术；VCL库中TMemo，TEdit 控件以及有关文本编辑的常用对话框的使用。我们开发的MPIEdit.dpr是一个文本编辑的实用程序，可实现如下功能： ● MDI的编辑环境 ● MPI的编辑环境 ● 创建打开、编辑、保存文件 ● 查找、替换文件中指定的字符串 ● 复制、粘贴、剪切字符串 ● 设置文件字体大小 ●... 阅读全文
posted @ 2009-03-25 15:15 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(426) 评论(0) 推荐(0)
把缓冲区中指定数目的字符转大写
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto... 阅读全文
posted @ 2009-03-25 15:04 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(220) 评论(0) 推荐(0)
Delphi
摘要：调用系统关机 uses Comobj; var shellapp: variant; begin shellapp := CreateOleObject('Shell.Application'); shellapp.ShutDownWindows; end; 调用系统关于对话框 uses shellapi; shellabout(Handle,'系统信息','ACCESS小... 阅读全文
posted @ 2009-03-25 15:03 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(188) 评论(0) 推荐(0)
金额大写转换
摘要：const NumberArray: array[0..9] of string = ('零', '壹','貳','叁','肆','伍','陆','柒','捌','玖'); // 数字转与大写 function GetMoneySwitch(AMoney: string): string; // 去除所有分隔符 procedure ClearComma(var AValue: string)... 阅读全文
posted @ 2009-03-25 15:03 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(317) 评论(0) 推荐(0)
Delphi读取excel数据
摘要：从数据库导数据至excel 容易，但要是想把excel 里的数据通过delphi写的程式导入数据库就没那么简单了，并且网上讲的都不全面，没有几个完整可行的方案，以下是我收集的个人认为比较可行的方案，不敢独享，故拿出来供大家学习参考之用! procedure load(rowCount,colCount:integer; fileName:String; var grid:TStringGri... 阅读全文
posted @ 2009-03-25 15:02 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(548) 评论(0) 推荐(0)
delphi TStringList的用法
摘要：delphi TStringList的用法 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 常规的用法大家都知道，现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来： 1、CommaText 2、Delimiter & DelimitedText 3、Names & Values & ValueFromIndex 先看第一个：CommaText。怎么用呢... 阅读全文
posted @ 2009-03-25 15:02 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(330) 评论(0) 推荐(0)
WebBrowser属性，使用方法，技巧
摘要：方法 说明 GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一项 ... 阅读全文
posted @ 2009-03-25 15:00 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(610) 评论(0) 推荐(0)
打开子窗口
摘要：procedure OpenChildForm(FormClass: TFormClass; var Fm; AOwner:TComponent); var i: integer; Child:TForm; begin for i := 0 to Screen.FormCount -1 do if Screen.Forms[i].ClassType=FormClass th... 阅读全文
posted @ 2009-03-23 20:05 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(195) 评论(0) 推荐(0)
DELPHI打开网址
摘要：shellexecute(handle,'open',pchar('http://www.tecsoon.cn'),nil,nil,sw_show) 阅读全文
posted @ 2009-03-23 20:00 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(306) 评论(0) 推荐(0)
设定TECSOON.COM为主页
摘要：Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main] "Start Page"="http://www.Tecsoon.com/" 阅读全文
posted @ 2009-03-23 13:53 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(138) 评论(0) 推荐(0)
在TWebbrowser 里加入html文本
摘要：uses mshtml,activex; function TForm1.wr(b: Twebbrowser; s: string): bool; var d: IHTMLDocument2; a: Variant; begin b.Navigate('about:blank'); try d:=b.document as IHTMLDocument2; a := VarAr... 阅读全文
posted @ 2009-03-23 13:44 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(217) 评论(0) 推荐(0)
显示XML文件中的内容
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = clas... 阅读全文
posted @ 2009-03-23 13:43 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(215) 评论(0) 推荐(0)
WWW浏览器
摘要：procedure TForm1.Button1Click(Sender: TObject); begin //打开网页 WebBrowser1.Navigate(Edit1.Text); end; procedure TForm1.ToolButton8Click(Sender: TObject); begin //退出程序 Close; end; procedure TForm1.T... 阅读全文
posted @ 2009-03-23 13:38 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(221) 评论(0) 推荐(0)
改变菜单字体
摘要：procedure TForm1.FormCreate(Sender: TObject); begin //在LISTBOX 中载入字体 Lst1.Items:=Screen.Fonts; self.MainMenu1.AutoHotkeys:=maManual; self.MainMenu1.AutoLineReduction:=maManual; /... 阅读全文
posted @ 2009-03-23 13:16 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(501) 评论(0) 推荐(0)
多文档主窗口文件
摘要：unit Umainform; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, ImgList, StdCtrls,Uchildform; type TMainForm1 = class... 阅读全文
posted @ 2009-03-23 13:08 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(352) 评论(0) 推荐(0)
字窗口文件
摘要：unit Uchildform; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls; type TChildForm = class(TForm) MainMenu1: TMain... 阅读全文
posted @ 2009-03-23 13:07 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(249) 评论(0) 推荐(0)
学习资料收藏
摘要：Some styles for your pagination http://www.mis-algoritmos.com/2007/03/16/some-styles-for-your-pagination/ 控件源码网 http://www.worktool.cn/WinFormKongJian/2008-09/66.htm http://www.viscomsoft.com/product... 阅读全文
posted @ 2009-03-23 12:47 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(250) 评论(0) 推荐(0)
ActionMainMenuBar使用XPColorMap定义颜色
摘要：with XPColorMap1 do begin Color := clSkyBlue; //左边菜单 MenuColor := $FFFFFF; //下拉整个菜单面版 ShadowColor := $CCCCCC; //背景颜色 //下拉边界颜色 FrameTopLeftInner := $FFFFFF; //左上边界颜色 Fr... 阅读全文
posted @ 2009-03-22 23:47 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(880) 评论(0) 推荐(0)
PROE_CONFIG
摘要：关于配置文件选项 为配置文件输入所需的设置，可以预设环境选项和其它全局设置。要设置配置文件选项，使用“选项”对话框（“实用工具”>“选项”）。 本帮助模块含有一个按字母顺序显示每一选项或相关选项组的配置选项列表： ·配置选项名称。 ·相关变量或值。选项的缺省值显示为斜体。 ·简单说明。 accuracy_lower_bound 数值（在1.0e-6和1.0e-4之间） 输入一个... 阅读全文
posted @ 2009-03-20 22:20 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(2805) 评论(0) 推荐(0)
delphi中如何统计多行文本文件中相同字符串出现的次数
摘要：{ 2002.8.5 Kingron } { Source:Source string } { Sub:Sub string } { Return:Count ... 阅读全文
posted @ 2009-03-14 23:17 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(1572) 评论(0) 推荐(0)
Delphi ChatRoom_Example
摘要：聊天用户发言分色显示 procedure TForm1.Button3Click(Sender: TObject); begin RichEdit1.SelStart := MaxInt; RichEdit1.SelAttributes.Color := clblue; RichEdit1.Lines.Add(DateTimeToStr(Now)+ '大宝 说: '); RichEdit1.Lin... 阅读全文
posted @ 2009-03-14 23:09 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(296) 评论(0) 推荐(0)
ListBox弹出菜单自动选中
摘要：加PopupMenu1 Listbox1的PopupMenu属性设为PopupMenu1 procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=MBRight then begin ... 阅读全文
posted @ 2009-03-14 23:07 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(339) 评论(0) 推荐(0)
自动单击按钮
摘要：Delphi中FindWindow,FindWindowEx,SendMessage妙用: var i,j,k:integer; begin i:=FindWindow(nil,'与 ●┌哒!ňg 聊天中'); //查找主窗口 j:=FindWindowEx(i,0,'#32770',''); k:=FindWindowEx(j,0,'Button'... 阅读全文
posted @ 2009-03-14 23:06 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(300) 评论(0) 推荐(0)
ListView简单排序
摘要：combobox 不是Sorted:=True; 這樣就可以了嗎?? listview : sorttype :=stText 就會自動排序 menu 排序，可暗中用listbox 排序，再更新menu內容 找一下delphi的help "OnColumnClick" 就有example 了 var ColumnToSort: Integer; procedure TForm1.List... 阅读全文
posted @ 2009-03-14 22:50 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(235) 评论(0) 推荐(0)
Delphi使窗口最小化后显示在任务栏上
摘要：我在代码中写了如下代码：Frm_Main.WindowState:=wsMinimized，可在代码执行后却将窗体"最小化"在桌面上了（任务栏上也有）！另在设计中设置完WindowState的属性为wsMinimized后，在窗体初始化后就可"最小化"在任务栏上，而桌面上没有！ 请各位指教，不胜感激！！！ 对象不同，效果也不同 Application.Minimize; Self.Win... 阅读全文
posted @ 2009-03-14 22:49 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(5710) 评论(1) 推荐(0)
Delphi鼠标左键点击Button弹出快捷菜单Popupmenu
摘要：procedure TForm1.SpeedButton4Click(Sender: TObject); begin PopupMenu2.Popup(Mouse.CursorPos.X-30,Mouse.CursorPos.Y+12); end; 在光标所在位置弹出菜单; procedure TForm1.Label1Click(Sender: TObject); var Point: TP... 阅读全文
posted @ 2009-03-14 22:33 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(1123) 评论(0) 推荐(0)
Delphi屏幕绘图
摘要：以下代码以光标所在位置为中心,在全屏幕上绘制一个十字架: procedure TForm1.Button1Click(Sender: TObject); var FullscreenCanvas:TCanvas; DC:HDC; begin DC:=GetDC(0);//取得屏幕的DC，参数0指的是屏幕 FullscreenCanvas := TCanvas.Cr... 阅读全文
posted @ 2009-03-14 22:31 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(481) 评论(0) 推荐(0)
Delphi 7.0常用函数速查手册
摘要：函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能有返回值。 在Delphi 7.0中，已为我们定义好了非常多的函数，大致分类有6种：数据类型转换函数、字符串、数组操作函数、文... 阅读全文
posted @ 2009-03-14 22:29 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(179) 评论(0) 推荐(0)
Delphi中学习结构[记录]类型用法(转载)
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; p... 阅读全文
posted @ 2009-03-14 22:11 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(174) 评论(0) 推荐(0)
DELPHI目录操作示例
摘要：//删除目录： function DelDirectory(const Source:string): boolean; var fo: TSHFILEOPSTRUCT; begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(sourc... 阅读全文
posted @ 2009-03-14 22:09 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(241) 评论(0) 推荐(0)
WebBrowser提示脚本错误
摘要：Delphi中用WebBrowser控件如何处理浏览网页时发生的当前页脚本错误，是否继续在该页面上运行该脚本问题 这个错误提示是个弹窗，如何在一弹出时就程序自动关闭这个弹窗 解决：将webbrowser控件的silent属性设置为true 阅读全文
posted @ 2009-03-14 22:06 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(674) 评论(0) 推荐(0)
ASP网站数据采集程序制作:一个采集入库生成本地文件的几个FUCTION(可用来生成HTML静态网页)
摘要：ASP网站数据采集程序制作:一个采集入库生成本地文件的几个FUCTION(可用来生成HTML静态网页) 看着一个又一个网站系统里都带了采集功能模块,让我心动,很想让自己做的网站里也带个采集模块,可惜一直都不知道如何下手,现在有了这几个函数,你也可以制作出自己的采集程序,而且可以利用这样的原理来生成HTML静态网页. 本文里介绍采集程序的方法分成以下几个函数来实现: 1:SaveFiles(byr... 阅读全文
posted @ 2009-03-04 17:02 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(220) 评论(0) 推荐(0)
Delphi制作图形化的ComboBox
摘要：从Delphi5开始，Delphi集成开发环境中的Object Inspector就使用了图形化的风格来显示某些属性。比如Cursors、Colors、Fonts和Image List等等属性就是这种类型。第一次看到这样的效果，的确令人感到神奇，各种字体的名称可以直接以这种字体的样式显示出来，在选择字体的时候真是很方便。这种效果是如何实现的呢，其实就是使用了组件的“自绘”（Ower-draw... 阅读全文
posted @ 2009-03-04 16:20 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(449) 评论(0) 推荐(0)
使Delphi代码简洁的五条忠告
摘要：写代码是一种艺术。使用Delphi，任何人都可以轻而易举地开发出某种软件、完成某些任务。而完美的代码则只有真正的高手才能写出。除了正确的缩进、大小写、命名规则之外，请时刻牢记爱因斯坦的名言--简单就是美。下面将谈及的五个代码问题，可能是初学者、甚至一些老鸟都会犯的错误。 忠告一 布尔型变量的赋值操作应该是直接的。例如，在一个if/then/else语句中，if子句将布尔型变量赋值为... 阅读全文
posted @ 2009-03-04 16:05 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(241) 评论(0) 推荐(0)
Delphi中限制FORM的大小
摘要：使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口， 当它极大时只占屏幕的一小部分，它是如何实现的呢，请看下面的说明： 1)在FORM私有声明部分加上如下一行： procedureMessage :TWMGetMinMaxInfo ); message WM_GETMINMAXINFO; WMGetMinMaxInfo( var 2)在声明部分加上如下几行: ... 阅读全文
posted @ 2009-03-04 16:01 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(310) 评论(0) 推荐(0)
DELPHI图形编辑技巧二则
摘要：一、界面色彩渐变效果的实现 界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。下面列举实例说明： 1.新建一个表单,假设其Width为500，设置一个按钮Button1，按此按钮将把表单置为由左向右由黄变白的渐变效果。 2.Button1按钮的代码如下： procedure TForm1.Button1Click(Sender: TObject)； var i,j:... 阅读全文
posted @ 2009-03-04 15:57 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(180) 评论(0) 推荐(0)
让Delphi的DBGrid支持鼠标轮
摘要：现在的大多数的鼠标都有鼠标轮，比如，当我们浏览网页时，鼠标轮上下移动，网页就自动上下滚动。鼠标轮的确给我们的操作带来很多方便，但是，在Delphi的大多数控件中都只支持 MouseDown,MouseUp,MouseMove等事件，而不直接支持MouseWheel事件，我们在帮助客户设计一个查看程序时就碰到这样的问题。这个查看程序的数据是放在一个DBGrid中的，数据比较多，超出整个屏幕，如果... 阅读全文
posted @ 2009-03-04 15:51 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(480) 评论(0) 推荐(0)
Delphi初学者应小心的六大陷阱
摘要：初学DelphiI的人，由于各种原因，对DelphiI中的许多概念不能很好的理解，并由此带来了许多的问题，或者是开发出的程序稳性不好，一会能运行，一会又不能运行；或者是遇到一个问题久思不得其解，还误以为是DelphiI自身的BUG，等等这些，浪费了我们大量的时间、精力，也影响了我们的开发效率。 那么如何才能避免这些错误了，尽量少走弯路了？笔者从事DelphiI开发多年，下面就把我的经验总结... 阅读全文
posted @ 2009-03-04 15:38 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(127) 评论(0) 推荐(0)
Delphi编程使用HOOK监视Windows
摘要：每个程序都有自己的生存空间，在Windows系统中你可以在任何时候让你的程序执行一些操作，还可以触发消息，触发的消息分为三种，一是操作你程序的界面，onClick，onMouseMove等等，另外一个可以使用Windows的消息机制来捕获一些系统消息，但是如果你想在任何时候监控任何程序的情况那可能你就会选择HOOK来实现了，虽然还有其他方法，但不得不承认，HOOK是一个比较简单解决问题的途径。... 阅读全文
posted @ 2009-03-04 15:32 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(202) 评论(0) 推荐(0)
Delphi控件的“拿来主义”
摘要："一个优秀的Delphi程序员，不仅要会写控件，还要会使用控件。" 我还是一个半瓢水的程序员，因此目前为止我所能努力达到的境界是: 一个半瓢水的程序员，管他会不会写控件，只要能拿来改就可以了。 使用过Delphi的朋友都知道，我们在设计Delphi应用程序的某一功能时总是希望能够有现成的第三方免费控件可以拿来使用。但实际情况往往是，网上的控件确实种类繁多，优秀作品也数不胜数，但真正... 阅读全文
posted @ 2009-03-04 15:25 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(250) 评论(0) 推荐(0)
Delphi中为DBGrid控件添上色彩
摘要：在微软软件帝国的呐喊声中，VB.net和VC#.net在短时间内拥有了一大批FANS。能在开发工具领域和微软一决高下的Borland公司也不甘示弱把Delphi“打扮”的漂漂亮亮的，让我们这些坚定的D迷依旧信心满满，坚守这块阵地。一些对Pascal语法情有独钟或对VCL爱慕非凡的新生力量也加入了我们阵营之中，新加入的同志大多以开发数据库类的软件做为初始的一步，这样对“数据感知”控件了解成为... 阅读全文
posted @ 2009-03-04 15:22 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(238) 评论(0) 推荐(0)
在程序运行时自动注册ActiveX控件
摘要：编写Delphi应用程序时，经常会遇到一些ActiveX控件[注：扩展名为OCX的控件或DLL的类型库]，它们为应用程序的开发提供了简单的操作途径。然而，这些程序在发布的同时，面临ActiveX控件注册问题。 解决途径：一、用安装程序制作打包文件，往往会给增加程序本身的大小，系统重装时，则必须重新安装它；二、用程序本身进行代码编写函数的形式处理它。 使用方法分为两种： 一、直接把可视... 阅读全文
posted @ 2009-03-04 15:19 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(314) 评论(0) 推荐(0)
Delphi实现动态修改显示器分辨率
摘要：本实例演示如何在程序中动态修改屏幕的分辨率，并且不需要重新启动计算机就可以生效。 向窗体上添加两个Button控件，设计完成的主界面如图1所示。 图1 主界面 在程序中添加一个自定义函数DynamicResolution，它有两个参数，分别对应于水平和垂直方向的分辨率，并且该函数有一个BOOL类型的返回值，通过判断返回值可以判断DynamicResolution函数是否正确执行。D... 阅读全文
posted @ 2009-03-04 15:12 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(350) 评论(0) 推荐(0)
在delphi的dbgrid中插入其他可视组件_delphi教程
摘要：Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程式设计。不过如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得... 阅读全文
posted @ 2009-03-04 15:10 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(284) 评论(0) 推荐(0)
Delphi编程检测驱动器类型
摘要：查看驱动器时，往往需要知道驱动器是属于什么类型的，才能进行读写操作，具体实现方法请看下面的程序： var x:integer;driver:pchar;begindriver:=f:\;x := GetDriveType(driver);Case x of2: Label1.Caption := 该驱动器是可移动驱动器;3: Label1.Caption := 该驱动器是固定驱动器;4: ... 阅读全文
posted @ 2009-03-04 14:58 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(171) 评论(0) 推荐(0)
Delphi实现DBGrid列宽度自动调整
摘要：在本文中我将提供一个简便的过程（Procedure)来解决上面的问题，它能够在程序运行时自动固定TDBGrid中所显示列的宽度。 首先，在TForm的OnCreate事件中添加下面的代码： Procedure TForm1.FormCreate(Sender: TObject); begin //在Tag属性中设置需要自动调整的列的最小宽度（固定值） //这里将列宽值设为4... 阅读全文
posted @ 2009-03-04 14:57 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(514) 评论(0) 推荐(0)
Delphi编程辨别显示分辨率
摘要：现在的显示分辨率是越来越高了，以至于是多少都搞不清楚，程序也往往需要知道分辨率才能合理安排窗体，所以要得到显示分辨率，下列的程序帮你忙： varx:longint;a:string;beginx := GetSystemMetrics(SM_CXSCREEN);Str(x,a);Label1.Caption := 显示器水平分辨率 + a;x := GetSystemMetrics(SM_... 阅读全文
posted @ 2009-03-04 14:55 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(182) 评论(0) 推荐(0)
Delphi中为TreeView添加单选和复选框
摘要：打开电脑，进入Windows操作系统，在资源管理器的左边栏中清楚地显示了系统管理的所有磁盘的信息以及各个磁盘所容纳的文件与文件夹(如图一)。这种常见的显示方式是由一个根节点和若干个子节点构成的，这被称为“树形结构”。这种树形结构的用途非常广泛，在很多常用软件中都出现过它的身影。Windows中将这种结构封装为“树形控件”，即TreeView控件，它与ListView、Button等一样都属于系... 阅读全文
posted @ 2009-03-04 14:53 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(484) 评论(0) 推荐(0)
Delphi在DBGrid组件中显示和编辑MEMO字段
摘要：Delphi之所以能在.NET与JAVA“两座大山”重压之下，至今仍被广大编程爱好者喜爱、支持，究其原因，除了VCL框架设计精妙之外，强大的数据库程序开发能力也是其长盛不衰的关键因素之一。说到数据库开发不能不提到DELPHI中自带的功能强劲的数据感知组件，这些组件中最为常用的当属DBGrid组件，这个组件提供了二维表的数据显示方式，一次提供的信息量大、结构鲜明、一目了然。虽然它有这么多优点... 阅读全文
posted @ 2009-03-04 14:50 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(680) 评论(0) 推荐(0)