speedbutton的glyph的属性是调用一个编辑框,然后把选择的bmp写到form的dfm中去,那么这是怎么做的?(100分)

  • 主题发起人 主题发起人 apache
  • 开始时间 开始时间
A

apache

Unregistered / Unconfirmed
GUEST, unregistred user!
我想做个控件让他的iocn属性像这个样子做出来?
由例子吗?
 
自己做一个可以呀,一个TIMAGE,一个DIALOG,几个BUTTON。不行吗?
 
将你的icon属性声明为Tbitmap即可.如
property icon:Tbitmap read geticon write seticon;
 
我想知道的是怎么写到dfm中去
还有那个对话框是怎么出来的
 
该对话框是delphi对于图象类型已经注册的属性编辑器。
在delphi的/source/property editors下的picedit.pas即是其原代码.
 
写入Form这段你可以省却了, 只要声明属性为TIcon, Delphi就会自动写入DFM文件, 实际上
TBitmap, TIcom等等都是写成TStream
具体参见: TPicture.DefineProperties
 
这就是定义了一个 TPicture 的 PropertyEditor 了。
 
定义一个TBitmap属性的值,
在控件创建时创建这个属性,
修改时,把相应的Value拿给这个属性OK了。如下:
...
FBmp: TBitmap
procedure SetB(Value: TBitmap);
...
property Bmp: Tbitmap read FBmp write SetB;
...
procedure ...Create...
...
FBmp:=TBitmap.create;
...
procedure ...Destroy;
...
FBmp.Free;
...
procedure ...setB(Value: TBitmap);
begin
FBmp:=Value;
end;
 
后退
顶部