◇[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;