szyyjzy的专栏

ProgressBar1.Parent := StatusBar1;    ProgressBar1.Top := 2;  //为了显示嵌入Panel的效果    ProgressBar1.Height := StatusBAr1.Height - 2;    ProgressBar1.Left := 0; //如果要设置为Panels[2]内，则Left := StatusBar1.

Delphi中数据库编程组合SQL时，经常涉及到单引号，采用这个函数自动在字符两端增加上单引号，很方便。

刚开始用Delphi，正在看dbExpress部分，想用TSqlQuery查询表内总共多少条记录，找了好多资料这里总结下：方法1.sqQuery.SQL.Clear;sqQuery.SQL.Add('select count(*) from Books;');sqQuery.Open();ShowMessage(sqQuery.Fields[0].AsString);sqQ

当Label的Caption设置为汉字，AutoSize属性设置为True，文字内容会显示不完全，两种解决办法：1. AutoSize设置为False，把Label调整成能显示出内容的大小。2. 把Font字体为宋体，字号为10，字形为常规，字符集为“CHINESE_GB2312”

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);var    i : Integer;begin    if Msg.CharCode = VK_RETURN then    begin        i := ActiveControl.ComponentIndex + 1;

delphi下有直接操作文件的控件OpenFileDialog和SaveFileDialog以及几个针对特殊文件类型的扩展控件，但是针对目录的控件操作确不是很符合目前的Windows风格，在FileCtrl单元下有个SelectDirectory，原型如下：function SelectDirectory(const Caption: string; const Root: WideStrin