delphi编程工作小结

1、本人今天把自已以前的一些delphi编程经验进行个小总结，总结完后突有一个这样的想法：如果我把这些总结发给网上的delphi朋友，而他们如果也有些自已的delphi编程小结，也发给我(如果愿意的话),这样大家的进步肯定是很快的。（1）按下ctrl和其它键之后发生一事件。procedureTForm1.FormKeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);beginif(ssCtrlinShift)and(key=67)thenshowmessage(keydownCtrl+C);end;(2).Dbgrid中用Enter键代替Tab

2、键.procedureTForm1.DBGrid1KeyPress(Sender:TObject;varKey:Char);beginifKey=#13thenifActiveControl=DBGrid1thenbeginTDBGrid(ActiveControl).SelectedIndex:=TDBGrid(ActiveControl).SelectedIndex+1;Key:=#0;end;end;(3).Dbgrid中选择多行发生一事件。procedureTForm1.Button1Click(Sender:TObject);vari:integer;bookmarklist:Tbo

3、okmarklist;bookmark:tbookmarkstr;beginbookmark:=adoquery1.Bookmark;bookmarklist:=dbgrid1.SelectedRows;trybeginfori:=0tobookmarklist.Count-1dobeginadoquery1.Bookmark:=bookmarklisti;withadoquery1dobeginedit;fieldbyname(mdg).AsString:=edit2.Text;post;end;end;end;finallyadoquery1.Bookmark:=bookmark;end;

4、end;(4).Form的一个出现效果。procedureTForm1.Button1Click(Sender:TObject);varr:thandle;i:integer;beginfori:=1totrunc(width/1.414)dobeginr:=CreateEllipticRgn(trunc(width/2)-i,trunc(height/2)-i,trunc(width/2)+i,trunc(height/2)+i);SetWindowRgn(handle,r,true);Application.ProcessMessages;sleep(1);end;end;(5).用Ent

5、er代替Tab在编辑框中移动隹点。procedureTForm1.FormKeyPress(Sender:TObject;varKey:Char);beginifkey=#13thenbeginifnot(ActivecontrolisTmemo)thenbeginkey:=#0;keybd_event(vk_tab,mapvirtualkey(vk_tab,0),0,0);end;end;end;(6).Progressbar加上色彩。const$EXTERNALSYMPBS_MARQUEEPBS_MARQUEE=08;varForm1:TForm1;implementation$R*.df

6、musesCommCtrl;procedureTForm1.Button1Click(Sender:TObject);begin/SettheBackgroundcolortotealProgressbar1.Brush.Color:=clTeal;/SetbarcolortoyellowSendMessage(ProgressBar1.Handle,PBM_SETBARCOLOR,0,clYellow);end;(7).住点移动时编辑框色彩不同。procedureTForm1.Edit1Enter(Sender:TObject);begin(senderastedit).Color:=clr

7、ed;end;procedureTForm1.Edit1Exit(Sender:TObject);begin(senderastedit).Color:=clwhite;end;(8).备份和恢复procedureTForm1.Button1Click(Sender:TObject);beginifOpenDialog1.Executethenbegintryadoconnection1.Connected:=False;adoconnection1.ConnectionString:=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=s

8、a;InitialCatalog=master;DataSource=FRIEND-YOFZKSCO;+UseProcedureforPrepare=1;AutoTranslate=True;PacketSize=4096;WorkstationID=FRIEND-YOFZKSCO;UseEncryptionforData=False;Tagwithcolumncollationwhenpossible=False;adoconnection1.Connected:=True;withadoQuery1dobeginClose;SQL.Clear;SQL.Add(BackupDataBases

9、fatodisk=+opendialog1.FileName+);ExecSQL;end;exceptShowMessage(?Y);Exit;end;end;Application.MessageBox(1?2?y?Y?Y31|,?,MB_OK+MB_ICONINFORMATION);end;procedureTForm1.Button2Click(Sender:TObject);beginifOpenDialog1.Executethenbegintryadoconnection1.Connected:=false;adoconnection1.ConnectionString:=Prov

10、ider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=master;DataSource=FRIEND-YOFZKSCO;+UseProcedureforPrepare=1;AutoTranslate=True;PacketSize=4096;WorkstationID=FRIEND-YOFZKSCO;UseEncryptionforData=False;Tagwithcolumncollationwhenpossible=False;adoconnection1.Connected:=true;withadoQu

11、ery1dobeginClose;SQL.Clear;SQL.Add(RestoreDataBasesfafromdisk=+opendialog1.FileName+);ExecSQL;end;exceptShowMessage(?);Exit;end;end;Application.MessageBox(1?2?y?Y?31|,?,MB_OK+MB_ICONINFORMATION);end;(9).查找局域网上的sqlserver报务器。usesComobj;procedureTForm1.Button1Click(Sender:TObject);varSQLServer:Variant;

12、ServerList:Variant;i,nServers:integer;sRetValue:String;beginSQLServer:=CreateOleObject(SQLDMO.Application);ServerList:=SQLServer.ListAvailableSQLServers;nServers:=ServerList.Count;fori:=1tonserversdoListBox1.Items.Add(ServerList.Item(i);SQLServer:=NULL;serverList:=NULL;end;(10).窗体打开时的淡入效果。procedureT

13、Form1.FormCreate(Sender:TObject);beginAnimateWindow(Handle,400,AW_CENTER);end;(11).动态创建窗体。procedureTForm1.Button1Click(Sender:TObject);begintryform2:=Tform2.Create(self);form2.ShowModal;finallyform2.Free;end;end;procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);beginaction:=cafree;end

14、;procedureTForm1.FormDestroy(Sender:TObject);beginform1:=nil;end;(12).复制文件。procedureTForm1.Button1Click(Sender:TObject);begintrycopyfileA(pchar(C:AAA.txt),pchar(D:AAA.txt),false);exceptshowmessage(sfdsdf);end;end;(13).复制文件夹。usesshellAPI;procedureTForm1.Button1Click(Sender:TObject);varlpFileOp:TSHFil

15、eOpStruct;beginwithlpFileOpdobeginWnd:=Self.Handle;wfunc:=FO_COPY;pFrom:=pchar(C:AAA);pTo:=pchar(D:AAA);fFlags:=FOF_ALLOWUNDO;hNameMappings:=nil;lpszProgressTitle:=nil;fAnyOperationsAborted:=True;end;ifSHFileOperation(lpFileOp)0thenShowMessage(删除失败);end;(14).改变Dbgrid的选定色。procedureTForm1.DBGrid1DrawD

16、ataCell(Sender:TObject;constRect:TRect;Field:TField;State:TGridDrawState);beginifgdSelectedinstatethenSetBkColor(dbgrid1.canvas.handle,clgreen)elsesetbkcolor(dbgrid1.canvas.handle,clwhite);dbgrid1.Canvas.TextRect(rect,0,0,field.AsString);dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString);end;

17、(15).检测系统是否已安装了ADO。usesregistry;functionTform1.ADOInstalled:Boolean;varr:TRegistry;s:string;beginr:=TRegistry.create;trywithrdobeginRootKey:=HKEY_CLASSES_ROOT;OpenKey(ADODB.ConnectionCurVer,false);s:=ReadString();ifsthenResult:=TrueelseResult:=False;CloseKey;end;finallyr.free;end;end;procedureTForm1

18、.Button1Click(Sender:TObject);beginifADOInstalledthenshowmessage(thiscomputerhasinstalledADO);end;(16).取利主机的ip地址。useswinsock;procedureTForm1.Button1Click(Sender:TObject);varIP:string;IPstr:String;buffer:array1.32ofchar;i:integer;WSData:TWSAdata;Host:PHostEnt;beginifWSAstartup(2,WSData)0thenbeginshow

19、message(WS2_32.DLL3?.);exit;end;tryifGetHostname(buffer1,32)0thenbeginshowmessage(?D?.);exit;end;exceptshowmessage(?D31|?);exit;end;Host:=GetHostbyname(buffer1);ifHost=nilthenbeginshowmessage(IP?a?.);exit;endelsebeginedit2.Text:=Host.h_name;edit3.Text:=chr(host.h_addrtype+64);fori:=1to4dobeginIP:=in

20、ttostr(ord(host.h_addri-1);ifi4thenipstr:=ipstr+IP+.elseedit1.Text:=ipstr+ip;end;end;WSACleanup;end;(17).取得计算机名。functiontform1.get_name:string;varComputerName:PChar;size:DWord;beginGetMem(ComputerName,255);size:=255;ifGetComputerName(ComputerName,size)=Falsethenresult:=elseresult:=ComputerName;FreeM

21、em(ComputerName);end;procedureTForm1.Button1Click(Sender:TObject);beginlabel1.Caption:=get_name;end;(18).取得硬盘序列号。functiontform1.GetHDSerialNumber:LongInt;$IFDEFWIN32varpdw:pDWord;mc,fl:dword;$ENDIFbegin$IfDefWIN32New(pdw);GetVolumeInformation(c:,nil,0,pdw,mc,fl,nil,0);Result:=pdw;dispose(pdw);$ELSER

22、esult:=GetWinFlags;$ENDIFend;procedureTForm1.Button1Click(Sender:TObject);beginedit1.Text:=inttostr(gethdserialnumber);end;(19).限定光标移动范围。procedureTForm1.Button1Click(Sender:TObject);varrect1:trect;beginrect1:=button2.BoundsRect;mapwindowpoints(handle,0,rect1,2);clipcursor(rect1);end;procedureTForm1.

23、Button2Click(Sender:TObject);varscreenrect:trect;beginscreenrect:=rect(0,0,screen.Width,screen.Height);clipcursor(screenrect);end;(20).限制edit框只能输入数字。procedureTForm1.Edit1KeyPress(Sender:TObject;varKey:Char);beginifnot(keyin0.9,.,#8)thenbeginkey:=#0;Messagebeep(0);end;end;(21).dbgrid中根据任一条件某一格变色。proc

24、edureTForm_main.DBGridEh1DrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumnEh;State:TGridDrawState);beginif(trim(DataModule1.ADOQuery1.FieldByName(dczt).AsString)=OK)thenbeginifdatacol=6thenbeginDbGrideh1.Canvas.Brush.Color:=clGradientActiveCaption;DbGrideh1.DefaultDrawColu

25、mnCell(Rect,datacol,column,state);end;end;end;(22).打开word文件。procedureTfjfsglForm.SpeedButton4Click(Sender:TObject);varMSWord:Variant;str:string;beginiftrim(DataModule1.adoquery27.fieldbyname(fjmc).asstring)thenbeginstr:=trim(DataModule1.ADOQuery27.fieldbyname(fjmc).AsString);MSWord:=CreateOLEObject(

26、Word.Application);/MSWord.Documents.Open(d:ProgramFilesCommonFilesSfa+str,True);/MSWord.Visible:=1;/str:=;MSWord.ActiveDocument.Range(0,0);/MSWord.ActiveDocument.Range.InsertAfter(str);/?Word?D?TitleMSWord.ActiveDocument.Range.InsertParagraphAfter;endelseshowmessage();end;23).word文件传入和传出数据库。usesIdGl

27、obal;procedureTdjhyForm.SpeedButton2Click(Sender:TObject);varsfilename:string;functionBlobContentTostring(constFilename:string):string;beginwithTfilestream.Create(filename,fmopenread)dotrysetlength(result,size);read(pointer(result),size);finallyfree;end;end;beginifopendialog1.Executethenbeginsfilename:=opendialog1.FileName;DataModule1.ADOQuery14.Edit;DataModule1.ADOQuery14.FieldByName(word).AsString:=blob