技巧分享：计算机二级考试DELPHI基础开发技巧

　　◇[DELPHI]DBGrid中回车到下个位置(Tab键)

　　procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

　　begin

　　if Key = #13 then

　　if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then

　　DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl

　　else

　　begin

　　Table1.next;

　　DBGrid1.Columns[0].field.FocusControl;

　　end;

　　end;

　　◇[DELPHI]如何安装控件

　　安装方法:

　　1.对于单个控件,Component-->install component..-->PAS或DCU文件-->install

　　2.对于带*.dpk文件的控件包,File-->open(下拉列表框中选*.dpk)-->install即可.

　　3.对于带*.dpl文件的控件包,Install Packages-->Add-->dpl文件名即可。

　　4.如果以上Install按钮为失效的话,试试Compile按钮。

　　5.是run time lib则在option下的packages下的runtimepackes加之.

　　如果编译时提示文件找不到的话,一般是控件的安装目录不在delphi的Lib目录中,有两种方法可以解决:

　　1.把安装的原文件拷入到delphi的Lib目录下。

　　2.或者Tools-->Environment Options中把控件原代码路径加入到Delphi的Lib目录中即可。

　　◇[DELPHI]目录完全删除(deltree)

　　procedure TForm1.DeleteDirectory(strDir:String);

　　var

　　sr: TSearchRec;

　　FileAttrs: Integer;

　　strfilename:string;

　　strPth:string;

　　begin

　　strpth:=Getcurrentdir();

　　FileAttrs := faAnyFile;

　　if FindFirst(strpth+''\''+strdir+''\*.*'', FileAttrs, sr) = 0 then

　　begin

　　if (sr.Attr and FileAttrs) = sr.Attr then

　　begin

　　strfilename:=sr.Name;

　　if fileexists(strpth+''\''+strdir+''\''+strfilename) then

　　deletefile(strpth+''\''+strdir+''\''+strfilename);

　　end;

　　while FindNext(sr) = 0 do

　　begin

　　if (sr.Attr and FileAttrs) = sr.Attr then

　　begin

　　strfilename:=sr.name;

　　if fileexists(strpth+''\''+strdir+''\''+strfilename) then

　　deletefile(strpth+''\''+strdir+''\''+strfilename);

　　end;

　　end;

　　FindClose(sr);

　　removedir(strpth+''\''+strdir);

　　end;

　　end;