我建立了一個自定義控件,繼承自picture,其中新增了一個屬性FSys_Enabled,
沒有在object inspector出現,為何?代碼如下:
unit Image_PB;interfaceuses
SysUtils, Classes, Controls, ExtCtrls, Windows, Messages, Graphics;type
TImage_PB = class(TImage)
private
{ Private declarations }
................
FPicture_D:TPicture;
FSys_Enabled:Boolean;
Procedure SetSys_Enabled(Value: Boolean);
.................
published
{ Published declarations }
....................
Property Picture_U:TPicture Read FPicture_U Write SetPictureU;
Property Sys_Enabled:Boolean Read FSys_Enabled Write SetSys_Enabled;
end;
...............
constructor TImage_PB.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FPicture_U := TPicture.Create(); Sys_Enabled := True;
end;procedure TImage_PB.SetSys_Enabled(Value: Boolean);
begin
If FSys_Enabled <> Value Then FSys_Enabled := Value;
end;控件中的另一個屬性Picture_U卻出現在object inspector上,請高手指點。
沒有在object inspector出現,為何?代碼如下:
unit Image_PB;interfaceuses
SysUtils, Classes, Controls, ExtCtrls, Windows, Messages, Graphics;type
TImage_PB = class(TImage)
private
{ Private declarations }
................
FPicture_D:TPicture;
FSys_Enabled:Boolean;
Procedure SetSys_Enabled(Value: Boolean);
.................
published
{ Published declarations }
....................
Property Picture_U:TPicture Read FPicture_U Write SetPictureU;
Property Sys_Enabled:Boolean Read FSys_Enabled Write SetSys_Enabled;
end;
...............
constructor TImage_PB.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FPicture_U := TPicture.Create(); Sys_Enabled := True;
end;procedure TImage_PB.SetSys_Enabled(Value: Boolean);
begin
If FSys_Enabled <> Value Then FSys_Enabled := Value;
end;控件中的另一個屬性Picture_U卻出現在object inspector上,請高手指點。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货