|  | 
 

 

上海浦东bet8可信吗

浦东bet8可信吗

上海徐汇bet8可信吗

徐汇bet8可信吗

上海黄浦bet8可信吗

黄浦bet8可信吗

上海杨浦bet8可信吗

杨浦bet8可信吗

上海卢湾bet8可信吗

卢湾bet8可信吗

上海静安bet8可信吗

静安bet8可信吗

上海虹口bet8可信吗

虹口bet8可信吗

 

 

 

 

 

 

 

友情链接
更多链接...
 
  您当前位置 -> 维修资料  

Delphi技巧两则
 
  1.配置数据引擎(BDE、SQL Link)
  在分发数据库程序时,需要携带数据引擎(BDE、SQL Link),并且在客户端安装完程序后还需要配置数据引擎,如用户名(username)、口令(Password)等等。如果手工配置的话,工作量比较大(根据客户机数量而定)。而InstallShield For Delphi又没有这方面的选项,其实InstallShield For Delphi可以做到,在生成安装程序的目录里有一个*.iwz的文本文件,只要在[IDAPI Alias]段中手工加入即可。例如:
  [IDAPI Alias]
  usesname=SYSDBA
   password=masterkey
  安装程序执行完毕后自动完成数据引擎配置。
  2.为列表框添光彩
  为了改变Listbox和Combobox两个控件的单调风格,想在它们的每一项前面加上个图标,从表面上看好像不大可能啦。其实,这两个控件都有style属性,它可以设为lbOwnerDrawFixed,在事件OnDrawItem中写一段代码,就可以在列表框中的每一项前面添加一个小图标了。下面是在Listbox 的OnDrawItem事件中添加的代码:
  procedure TForm1.ListBox1DrawItem(Control:TWinControl; Index: Integer;
  Rect:TRect; State: TOwnerDrawState);
  var
  Bitmap:TBitmap;
  Offset:Integer;
  begin
  with (Control as TListBox).Canvas do
  begin
  FillRect(Rect);
  Offset:=2;
  Bitmap:=TBitmap.create;
  Bitmap.LoadFromFile(′d:\temp1\1.bmp′); //指定图文件是d:\temp1\1.bmp
  BrushCopy(Bounds(Rect.Left + 2, Rect.Top, Bitmap.Width, Bitmap.Height),
  Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clRed);
  Offset := Bitmap.width + 6;
  TextOut(Rect.Left + Offset, Rect.Top, (Control as TListBox).Items[Index])
  end;
  end;
  进一步,利用OnDrawItem事件的参数Index还可以在不同项前面添加不同的图标。当用add方法为列表框或下拉框添加项目时,会自动执行OnDrawItem事件,这样新添加的项目前面就会有一个图标了。




     BET9账号被风控有限公司版权所有    Copyright2002All Rights Reserved   

浦东bet8可信吗|徐汇bet8可信吗|黄浦bet8可信吗|杨浦bet8可信吗

卢湾bet8可信吗|静安bet8可信吗|虹口bet8可信吗|闸北bet8可信吗

BET9App下载

关于本站 | 联系方式 |招聘信息 | 意见反馈 | 网站地图|加盟我们