Z
zw960122
Unregistered / Unconfirmed
GUEST, unregistred user!
>>>>>1.
procedure TControl.Click;
begin
if Assigned(FOnClick) then FOnClick(Self);
end;
为什么要这样写, 怎么不写成
if Assigned(OnClick) then OnClick(Self)
或者
if Assigned(OnClick) then Click;
呢?
>>>>>> 2
用Override 重载和用dynamic 或 virtual 重新声明在作用上有什么区别吗?
procedure TControl.Click;
begin
if Assigned(FOnClick) then FOnClick(Self);
end;
为什么要这样写, 怎么不写成
if Assigned(OnClick) then OnClick(Self)
或者
if Assigned(OnClick) then Click;
呢?
>>>>>> 2
用Override 重载和用dynamic 或 virtual 重新声明在作用上有什么区别吗?