- 博客(8)
- 收藏
- 关注
转载 如何取缺省打印机名?
uses Printers; function GetDefaultPrinterName : string; begin if (Printer.PrinterIndex > 0)then begin Result := Printer.Printers [Printer.PrinterIndex]; end else begin Resu
2007-11-20 08:20:00 634
转载 关于在ehlib的DBGridEh控件中使用过滤功能的方法
在ehlib的DBGridEh控件中使用过滤功能很方便,但使用过程中有几个容易被忽略的地方,它曾经困绕了我很长时间,过滤功能就是用不起来。1.在UNIT中加入uses EhLibXXX(EhLibADO、EhLibDBE等,根据你选用的数据集来定);initialization DBGridEhDefaultStyle.FilterEditCloseUpApplyFilter :=
2007-11-13 08:48:00 1230
转载 怎样在标题显示背景图.
Procedure TileImage(const FileName: TFileName; Sender: TObject); var x, y: Integer; MyBmp: TBitmap; begin MyBmp := TBitmap.Create; try MyBmp.LoadFromFile(FileName); wit
2007-11-07 08:48:00 496
转载 创建带checkbox的对话框.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1
2007-11-07 08:37:00 611
原创 创建出个性的对话框.
procedure TForm1.btn1Click(Sender: TObject);varMessaggio : String;TipoDialogo : TMsgDlgType;BottVisualizzati : TMsgDlgButtons;begin Messaggio :=....message for personal dialog....; TipoDialogo :=
2007-11-07 08:35:00 484
转载 漂亮的圆形按钮.
unit BottR; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender
2007-11-07 08:28:00 1447
原创 怎样改变正在运行的exe文件的图标.
procedure ChangeIcon; var MyIcon: TIcon; FileInfo: SHFILEINFO; begin MyIcon := TIcon.Create; try SHGetFileInfo(PChar(File.exe), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
2007-11-07 08:24:00 814
原创 RemObject SDK在d2007中的安装成功。
安装步骤如下:1、用安装包进行安装。2、进入delphi2007打开 Component下的Install Packages把remobjects开头的饭前面没有打勾的都remove.3、下载RemObjects_Everwood_D11,地址:http://www.winu.cn/attachment.php?aid=57562,并安装此包。4、重新编译刚才remove的几个包并安装就可以了。
2007-11-02 09:46:00 1769 2
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人