木子之井的专栏

        很多朋友在使用DBGrid控件时，抱怨没有点击标题栏便可自动排序的功能，实际上通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件，可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序，也可以选择排序方式（升序/降序），所以我们只要在OnTitleClick事件中设置排序字段和排序方式即可，如以下代码：procedu

procedure TForm1.Button1Click(Sender: TObject);var  RootPath : string;  Sed_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters : DWord;begin  Memo1.Clear;  RootPath := C:/;  if RootPath  begin    Get

procedure TComLocateFrm.LocateBtnClick(Sender: TObject);var   setLoOptions : TLocateOptions;   i : Integer;   slKeys : TStrings;begin  if ComboBox1.Items.IndexOf(ComboBox1.Text)  try    slKeys := TStr

1. //状态栏右边子面板宽度固定，左边子面板自动调整宽度：procedure TMainFrm.StatusBar1Resize(Sender: TObject);//使Panels[0]长度自动调整begin with StatusBar1 do Panels[0].Width := Width-Panels[1].Width-Panels[2].Width-Panel

<br />用Delphi开发的的组件如何使用自己设置的图标呢?它里面又有什么奥秘呢?<br />设置自制组件的图标要进行以下几步:<br />  (1)知晓组件的信息: 我要注册的组件名为TMemoEditor,在MyEditor.pas单元中.<br />  (2)制作一个和你的组件所在的单元文件同名的dcr文件,这里即为MyEditor.dcr,在该文件中添加一个24*24的BITMAP文件,名称一定要与你的组件名称一致,且全部大写,这里即为TMEMOEDITOR.<br />  (3)将该MyEdi