摘要：先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体): 修改为多线程(只修改一行代码): 代码分析: 1、TThread 现在增加了许多 class 方法(直接通过类名调用的方法), TThread.CreateAnonymousThread() 就是比较有用的一个. 2、顾名思义, 阅读全文

摘要：1、挂起，不占CPUsleep2、不挂起,占cpuprocedure Delay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;repeatApplication.ProcessMessages; 阅读全文

摘要：delphi 自带的Timer控件，使用方便，但它的 OnTimer 事件是在主线程中引发的。 如果在事件中执行较耗时的代码，会引起主界面假死。故实现一个线程的Timer就有必要了。 TThreadTimer 基于 TSimpleThread 继承而来。 本例源码下载 阅读全文

摘要：{ 修改者：ghs 日期：20071218 功能：在原版本的基础上增加。 RegisterControl：注册需要提示的控件。 BeginHelp：设置光标状态为帮助crHelp； 鼠标弹起后，显示注册的提示信息，同时光标进行还原。 原版本 作者：thaoqi 出处：http://www.2ccc.com/article.asp?articleid=4389 功能：首先谢谢xsherry大大，来盒 阅读全文

摘要：delphi中，我用定时器每隔一段时间执行数据库插入及更新工作!adoquery.close;adoquery.sql.cleare;adoquery.connection:=con1;adoquery.sql.add('exec addery');execsql;上面的基本语句!我的问题是:定时器 阅读全文

摘要：假设有过程： procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage('唐细刚 2008');end; 想在 FormCreate 时候调用，怎么调用？ 办法是： procedure TForm1.FormCreate(Sen 阅读全文

摘要：挽回女人时，你与女人的对话是很重要的，能不能引起她的好奇，发起有效话题，能否与之随着话题继续聊下去而不是乱搭话，都关乎着挽回的成与败。一个良好的聊天氛围会随着话题的深入让她对你产生新的认知，感觉到你比分手前更懂人心、更平易近人，继而开始对你有兴趣。否则如果话题无法展开，你和她之间便连最简单的沟通都做 阅读全文

摘要：单价和数量输入完后，在数量单元格往任何方向移动（上下左右），金额都能自动计算。如何实现？ 不要在UI元素的事件中计算字段，你可以在单价字段和数量字段的OnChange事件中进行计算。假设数据集名称为DataSet，在数据模块中编写一个过程：procedure CalcMoney(Sender: TF 阅读全文

摘要：在很多情况下，我们需要的数据与数据库中其它字段的数据相关，例如订单的金额为数量与单价的乘积。在应用程序中，若要在显示订单具体条目的同时显示金额，通常要创建一个字段，在显示该字段之前先进行乘法运算，将金额值存储在该字段中。但是，若用户修改了数量或单价，那就不得不更改金额值。这个问题立刻变得复杂起来，幸 阅读全文

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TSysChatMainForm = class(TForm) procedure FormCreate(Sender: TObject); procedure For 阅读全文

摘要：1）在添加删除程序里卸载delphi 2007 2）删除C:\ProgramData\CodeGear 3）删除C:\Program Files (x86)CodeGear 4）删除d:\Program Files (x86)CodeGear （我一般选择d盘安装程序） 5）删除注册表下codege 阅读全文

摘要：In RAD Studio, Delphi, C++Builder, XE4 there can become a scenario if you try to modify, repair, upgrade, or even remove the installation you will get 阅读全文

摘要：分类 范围 字节 备注 简单类型 序数 整数 Integer -2147483648 .. 2147483647 4 有符号32位 Cardinal 0 .. 4294967295 4 无符号32位 Shortint -128 .. 127 1 有符号8位 Smallint -32768 .. 32 阅读全文

摘要：更新指定窗口的客户区。如果窗口更新的区域不为空，UpdateWindow函数就发送一个WM_PAINT消息来更新指定窗口的客户区。函数绕过应用程序的消息队列，直接发送WM_PAINT消息给指定窗口的窗口过程，如果更新区域为空，则不发送消息。相当于刷新一下窗口 阅读全文

摘要：前言：网上有很多介绍delphi创建闪屏的代码，大多只是在程序开启前显示一个闪屏，但是却没有说如何在闪屏上显示程序加载的进度，于是笔者有意思介绍一下这种闪屏方式。 1.创建一个窗体(TfrmSplash)，放入一个TImageBox,加载一幅图片，调整好TImageBox与图片的大小，然后在其上放入 阅读全文

摘要：//在工程里面写 Application.Initialize; Application.Title := '管理系统'; Application.ShowHint := True; //闪现窗体创建显示 FormSplash := TFormSplash.Create(Application); FormSplash.Show; FormSplash.Update; Application.Cr 阅读全文

摘要：VCL里面的的实现 阅读全文

摘要：恢复内容开始 介绍在手机应用上，我们不应该使用速度慢的代码，当然我们在桌面程序上也应该避免这个，当手机应用长时间没有相应的时候，程序会提示“程序没响应，是否关闭”的提示，这个非常不好，所以我们需要来解决这个问题。下面是一个普通代码，通过for来循环添加ListVIew行，代码很简单，大家都见过 在运 阅读全文

摘要：ParamStr函数: ParamStr(1),..ParamStr(N) ParamStr(1)代表程序入口的第一个参数，同理，ParamStr(N)代表第N个参数。可通过如下操作进行参数的赋值。 例如： C盘下面有个1.exe可执行程序; 在Win+R下输入：C:\1.exe 1 2 3 ... 阅读全文

摘要：program AutoShutDown;usesWindows,ShellAPI,Sysutils,Messages;{$R *.RES}varWinClass: TWndClassA;Handle: hwnd;Inst, Button1, Label1, Edit1: Integer;Msg: 阅读全文