🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #346541

Re: Nowy komponent - gdzie Parent?

#346541
From: ExM
Date: Fri, 06 Apr 2018 12:31
15 lines
1977 bytes
Ok. część problemu rozwiązałem.

Teraz jeszcze mam problem z nadpisaniem (?) zdarzenia OnClick
- chciałbym aby przed/po wykonaniu przypiętej do nowego obiektu procedury w chwili zdarzenia OnClick wykonał się jeszcze fragment mojego kodu.

Jak to powinienem zrobić?
Z jednej strony jak mi się wydaje powinna być taka właściwość:
  published
    property OnClick : TNotifyEvent read FOnClick write FOnClick;

i do niej zmienna:
  private
    FOnClick  : TNotifyEvent;

Ale gdzie mam dodać kod który wykona się w chwili zdarzenia?
Technical Details
Message-ID: <f19ab399-61b7-4d6d-afcd-386133176274@googlegroups.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!u184-v6no475999ita.0!news-out.google.com!u64-v6ni391itb.0!nntp.google.com!u184-v6no475995ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
References: <d38a1d0b-f27f-4f9f-94e5-90043dde49a7@googlegroups.com> <pa7342$eo9$2@node2.news.atman.pl>

Show Full Headers
Complete Article Headers
X-Received: by 2002:a24:2cc8:: with SMTP id i191-v6mr8907917iti.35.1523017872674;        Fri, 06 Apr 2018 05:31:12 -0700 (PDT)
X-Received: by 2002:a9d:1f58:: with SMTP id x24-v6mr1441222otx.9.1523017872425; Fri, 06 Apr 2018 05:31:12 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!u184-v6no475999ita.0!news-out.google.com!u64-v6ni391itb.0!nntp.google.com!u184-v6no475995ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.delphi
Date: Fri, 6 Apr 2018 05:31:12 -0700 (PDT)
In-Reply-To: <pa7342$eo9$2@node2.news.atman.pl>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=31.174.123.228; posting-account=doVJ9goAAADBJ8SWJkb9r0xXWw28WhQg
NNTP-Posting-Host: 31.174.123.228
References: <d38a1d0b-f27f-4f9f-94e5-90043dde49a7@googlegroups.com> <pa7342$eo9$2@node2.news.atman.pl>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <f19ab399-61b7-4d6d-afcd-386133176274@googlegroups.com>
Subject: Re: Nowy komponent - gdzie Parent?
From: ExM <grupywyt-nijto@mv.net.pl>
Injection-Date: Fri, 06 Apr 2018 12:31:12 +0000
X-Received-Bytes: 1960
X-Received-Body-CRC: 1454604037
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit