摘要：我们为了将hint显示在statusbar1上需要如下方法
public
procedure displayhint(sender: tobject);
end;
var
form1: tform1;
implementation
{$r *.dfm}
{ here is the implementation of the onhint event handler }
{......
摘要：在应用程序的开发中，常常要将某些控件对象(如标签)用鼠标选中后进行拖动操作，用以改变控件的位置，在delphi中如何实现这一功能呢？笔者想了一个方法：通过在 public 中定义全局变量用以跟踪 鼠标在移动和拖动控件时的坐标，然后在拖动结束时将鼠标的坐标值赋给控件的 top和left属性，以达到拖动的目的。
举例如下：创建一个 panel，再创建一个label，通过编程使控件 lable 可......
Delphi中实现多线程同步查询上一页 ...第一次按下按钮时,线程开始执行;以后每次按下按钮时,如果线程处于挂起状态则继续执行,否则挂起线程;线程执行完毕之后将连接 datasource,查询结果将显示在相应的dbgrid中.
【程序编程相关:
让Fastreport3.x支持中文PD】 【推荐阅读:
序列化FastReport
】
{ 这里的多线程同步查询演示程序仅包括一个工程文件与一个单元文件 } 【扩展信息:
在TWebBrowser 屏蔽右键的弹出】
{ 窗体中放置的组件有: }
{ 两个session组件 }
{ 两个database组件 }
{ 两个query组件 }
{ 两个datasource组件 }
{ 两个dbgrid组件 }
{ 一个button组件 }
{ 除非特别说明,否则上述各组件的属性都取默认值（见各组件注释） }
{ 对于database组件,就与一般设置一样,有一个正确的连接即可 }
{ 对于query 组件,需要在各自的属性 sql中添加一些查询语句,为了 }
{ 看得更清除,建议不要在两个query 组件中填写相同的查询语句. }
unit unit1;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
db, dbtables, grids, dbgrids, stdctrls;
type
tform1 = class(tform)
session1: tsession; { 属性sessionname填写为s1 }
database1: tdatabase; { 属性sessionname选择为s1 }
query1: tquery;{ 属性database选择为database1;属性sessionname选择为s1 }
datasource1: tdatasource; { 属性dataset设置为空 }
dbgrid1: tdbgrid; { 属性datasource选择为datasource1 }
session2: tsession; { 属性sessionname填写为s2 }
database2: tdatabase; { 属性sessionname选择为s2 }
query2: tquery;{ 属性database选择为database2;属性sessionname选择为s2 } ...
下一页 摘要：single, double和extended型的浮点变量存在着四舍五入问题。举个例子，假设我们用电脑使用4位数字，那么：
1 / 3 = 0.3333
我们知道3 * 1/3 = 1，但如果我们这样：
x := 1 / 3;
x := x * 3;
if x = 1 then //结果将会不正确
为什么？因为x = 0.9999而不是1。
电脑不会有无限的小数位。从s......
