Delphi(程序人生)

摘要： procedure TfjfsglForm.SpeedButton4Click(Sender: TObject); var MSWord: Variant; str:string; begin if trim(DataModule1.adoquery27.fieldbyname('fjmc').asstring)'' then ... 阅读全文

摘要： procedure TForm_main.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin if (trim(DataModule1.ADOQuery1... 阅读全文

摘要： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.',#8]) then begin key:=#0; Messagebeep(0); end; end; 阅读全文

摘要： function tform1.GetHDSerialNumber: LongInt; {$IFDEF WIN32} var pdw : pDWord; mc, fl : dword; {$ENDIF} begin {$IfDef WIN32} New(pdw); G... 阅读全文

摘要： uses registry; function Tform1.ADOInstalled:Boolean; var r:TRegistry; s:string; begin r := TRegistry.create; try with r do begin RootKey :... 阅读全文

摘要： procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if gdSelected in state then SetBkColor(dbgrid1.canvas.han... 阅读全文

摘要： uses shellAPI; procedure TForm1.Button1Click(Sender: TObject); var lpFileOp: TSHFileOpStruct; begin with lpFileOp do begin Wnd:=Self.Handle; wfun... 阅读全文

摘要： Progressbar加上色彩。 const {$EXTERNALSYM PBS_MARQUEE} PBS_MARQUEE = 08; var Form1: TForm1; implementation {$R *.dfm} uses CommCtrl; procedure TForm1.B... 阅读全文

摘要： 1,用AnimateWindow函数->有一个缺点,窗体位置必须墨认 2,用如下代码 ---------------- procedure TForm1.Button1Click(Sender: TObject); var r:thandle; i:integer; begin for i:=1 to trunc(width/1.414) do... 阅读全文

摘要： Delphi与正则表达式 ------------------------------------------------------------------------------------------- 在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它. 官方网站: http://www.regular-expressions.info... 阅读全文