Help! Need programmer how knows Delphi and Builder

Article View: borland.public.cppbuilder.nativeapi

Article #5767

Back to borland.public.cppbuilder.nativeapi Previous Next

#5767

From: Danny VdH
Date: Wed, 13 Jul 2005 21:48

17 lines
1685 bytes

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;

Technical Details

Message-ID: <t_fBe.144127$SQ.7436408@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!newsfeed.gamma.ru!Gamma.RU!newsfeed.icl.net!newsfeed.fjserv.net!syros.belnet.be!news.belnet.be!hq-usenetpeers.eweka.nl!68.142.88.75.MISMATCH!hwmnpeer01.ams!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 10cc67,a01116ee74336874,start
X-Google-Attributes: gid10cc67,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!newsfeed.gamma.ru!Gamma.RU!newsfeed.icl.net!newsfeed.fjserv.net!syros.belnet.be!news.belnet.be!hq-usenetpeers.eweka.nl!68.142.88.75.MISMATCH!hwmnpeer01.ams!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: "Danny VdH" <dannyvdh@pandora.be>
Newsgroups: borland.public.cppbuilder.nativeapi
Subject: Help! Need programmer how knows Delphi and Builder
Lines: 19
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
X-RFC2646: Format=Flowed; Original
Message-ID: <t_fBe.144127$SQ.7436408@phobos.telenet-ops.be>
Date: Wed, 13 Jul 2005 21:48:09 GMT
NNTP-Posting-Host: 213.118.11.27
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1121291289 213.118.11.27 (Wed, 13 Jul 2005 23:48:09 MEST)
NNTP-Posting-Date: Wed, 13 Jul 2005 23:48:09 MEST
Organization: Telenet Internet