代码一:
TMyobject=class
private
SomeValue:integer;
procedure SetSomeValue(AValue:Integer);
public
property value: Integer read SomeValue write SetSomeValue ;
end ;
procedure TMyobject.SetSomeValue(AValue:Integer)
begin
if SomeValue<>AValue then
SomeValue:=AValue;
end;
代码二:
TMyobject=class
private
SomeValue:integer;
procedure SetSomeValue(AValue:Integer);
published
property value: Integer read SomeValue write SetSomeValue ;
end ;
procedure TMyobject.SetSomeValue(AValue:Integer)
begin
if SomeValue<>AValue then
SomeValue:=AValue;
end;
还有property value: Integer read SomeValue write SetSomeValue ;这段是怎么运行的?
TMyobject=class
private
SomeValue:integer;
procedure SetSomeValue(AValue:Integer);
public
property value: Integer read SomeValue write SetSomeValue ;
end ;
procedure TMyobject.SetSomeValue(AValue:Integer)
begin
if SomeValue<>AValue then
SomeValue:=AValue;
end;
代码二:
TMyobject=class
private
SomeValue:integer;
procedure SetSomeValue(AValue:Integer);
published
property value: Integer read SomeValue write SetSomeValue ;
end ;
procedure TMyobject.SetSomeValue(AValue:Integer)
begin
if SomeValue<>AValue then
SomeValue:=AValue;
end;
还有property value: Integer read SomeValue write SetSomeValue ;这段是怎么运行的?
一个是全局可见
一个是设计期可以看得到 发布发来的 选中这个对象 按F11就可以在属性列表中找到
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————