Help! Need programmer how knows Delphi and Builder

Help! Need programmer how knows Delphi and Builder

Post by Danny Vd » Fri, 15 Jul 2005 06:48:09


Hi,Can anyone translate this to builder?I've searched the web and didn't
find it :(
Thanks

procedure TControl.Click;
begin
{ Call OnClick if assigned and not equal to associated action's OnExecute.
If associated action's OnExecute assigned then call it, otherwise, call
OnClick. }
if Assigned(FOnClick) and (Action <> nil) and (@FOnClick <>
@Action.OnExecute) then
FOnClick(Self)
else if not (csDesigning in ComponentState) and (ActionLink <> nil) then
ActionLink.Execute(Self)
else if Assigned(FOnClick) then
FOnClick(Self);
end;