摘要： 转眼间使用Delphi开发已近2年了，其间有几次想把它学好，但总有一种排斥心理，找各种借口间断了自己的努力，不知不觉间自己差距越来越大，无奈我必须面对现实，从现在起坚持做自己该做的，出来混，迟早要换的，现在就要努力补课，换自己以前的偷懒和惰性。今天第一次听说delphi中的Frames，程序中要复用一个界面，我一开始想用弹出一个模特Frame的方法实现，听一位delphi大牛说可以用Frames实现更好，我顿时傻眼了，也没好意思问Frames为何物，只好自己百度搜索一下。找了几篇文章看了后依旧头晕，于是就按照一篇文章所说尝试了一下：1.在我现有的工程中加入框架Frames：菜单File-》Ne 阅读全文

摘要： 一、U盘启动进入WINPE系统. 二、将安装版的系统.ISO文件用WINRAR解压到非C盘其他系统盘的任意文件夹里（可新建一个文件夹，文件名设为英文名，不要用中文名，这里假定文件夹名为E盘下的WIN2003） 三.点开始，运行，输入cmd ，回车，输入：cd/d E:\WIN2003\i386 回车 再输入：winnt32/syspart:c/makelocalsource/tempdrive:c (其中c为要安装系统的盘符，可以修改) 回车. 四.选择全新安装，……，输入序列号等，按步骤进行 复制完文件后重启前拔掉U盘，切记！！ 五.重启后的安装相信大家都知道了 以前大家... 阅读全文

摘要： 有10个EDIT控件，取名为EDT1，EDT2，EDT3。。。EDT10，如何用一个循环知道哪个EDIT控件的值是空的？procedure TForm1.Button2Click(Sender: TObject); var I:integer; begin for i:=0 to Self.Componentcount-1 do//Self.Componentcount就是TForm1的控件数量 begin if Self.Components[i] is TEdit then //判断控件是否为TEdit beg... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, ExtCtrls;type TForm1 = class(TForm) tlb1: TToolBar; btn1: TToolButton; pnl1: TPanel; btn2: TToolButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TO 阅读全文

摘要： Delphi format的用法 一、Format函数的用法Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用： 首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不多用，所以这里只对第一个介绍：function Format(const Format: string; const Args: arra 阅读全文

摘要： procedure TMain.N8Click(Sender: TObject);var OFile:String; HWndCalculator:HWnd;begin HWndCalculator:=FindWindow(nil,'计算器'); if (HWndCalculator=0) then begin OFile:='calc.exe'; Shellexecute(handle,'Open',pchar(OFile),nil,pchar(ExtractFilePath(OFile)),SW_SHOWNORMAL); end;end;pr 阅读全文

摘要： http://v.youku.com/v_show/id_XMzg3OTAxNzQ0.html 阅读全文

摘要： procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var dx: Integer; begin with (Sender as TStringGrid) do begin //要制定单元格可以在这里进行判断 if (ACol = 0) or (ARow = 0) then Canvas.Brush.Color := clBtnFace else begin case ACol of 1: Canvas.Font.Color 阅读全文

摘要： 信息来源：西部E网问题背景 单位校园网搭建完成并投入使用以后，为老师们的工作提供了极大的便利，其中使用最频繁的是各办公室电脑之间的资料传输。起初我们使用“网上邻居”进行传输，但使用一段时间以后发现这种方式很不稳定，每次访问都需要一段时间的解析，并且还不利于管理。由于这些办公电脑都是基于WindowsXP专业版系统平台的，因此笔者决定利用WindowsXP自带的IIS为每台机器配置简单的FTP服务。按正确方法为每台电脑安装IIS并配置FTP服务后，当进行访问时，出现了问题：每台电脑只能在本机访问自己的FTP文件夹，其他电脑访问本机或本机访问其他电脑均不能正常进行。 分析解决 首先可以排除物... 阅读全文

摘要： if not ADOQuery1.Active then exit; if ADOQuery1.RecordCount<=0 then exit; PrintDBGridEh1.PageHeader.CenterText.Clear; PrintDBGridEh1.PageHeader.CenterText.Add(trim(edTiTle1.Text)); PrintDBGridEh1.PageHeader.CenterText.Add(''); PrintDBGridEh1.PageHeader.CenterText.Add(trim(edTiTle2.Text)); 阅读全文