Article View: pl.comp.lang.delphi
Article #346545Re: Nowy komponent - gdzie Parent?
From: wloochacz
Date: Fri, 06 Apr 2018 15:10
Date: Fri, 06 Apr 2018 15:10
21 lines
2193 bytes
2193 bytes
W dniu 2018-04-06 o 16:04, ExM pisze:
> Wystarczył by mi jakiś nowy TEdit który w OnClick wyczyści zawartość Text i następnie wykona oryginalną procedurę przypisaną do OnClick nowego komponentu.
To otwórz IDE i poszukaj w kodzie co wywołuje zdarzenie OnClick.
Podpowiem Ci:
TComboBox -> TCustomComboBox -> TCustomCombo -> TCustomListControl ->
TWinControl -> TControl
I na poziomie TControl masz chronioną metodę (protected) Click, a w niej
komentarz:
{ Call OnClick if assigned and not equal to associated action's
OnExecute.
If associated action's OnExecute assigned then call it, otherwise, call
OnClick. }
Co masz zrobić?
Przeciążyć metodę Click na poziomie własnego komponentu i dopisać co Ci
potrzebne.
--
wloochacz
Technical Details
Message-ID:
<5ac78dca$0$1004$65785112@news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer03.am4!peer.am4.highwinds-media.com!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer04.fr7!futter-mich.highwinds-media.com!news.highwinds-media.com!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mailReferences:
<d38a1d0b-f27f-4f9f-94e5-90043dde49a7@googlegroups.com> <pa7342$eo9$2@node2.news.atman.pl> <f19ab399-61b7-4d6d-afcd-386133176274@googlegroups.com> <pa7tgs$9pe$1@news.icm.edu.pl> <25af8c08-a704-44f6-a5a3-239faf6187b6@googlegroups.com> <56026446-0b9d-445a-a5df-1d76319ec320@googlegroups.com>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer03.am4!peer.am4.highwinds-media.com!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer04.fr7!futter-mich.highwinds-media.com!news.highwinds-media.com!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail Subject: Re: Nowy komponent - gdzie Parent? Newsgroups: pl.comp.lang.delphi References: <d38a1d0b-f27f-4f9f-94e5-90043dde49a7@googlegroups.com> <pa7342$eo9$2@node2.news.atman.pl> <f19ab399-61b7-4d6d-afcd-386133176274@googlegroups.com> <pa7tgs$9pe$1@news.icm.edu.pl> <25af8c08-a704-44f6-a5a3-239faf6187b6@googlegroups.com> <56026446-0b9d-445a-a5df-1d76319ec320@googlegroups.com> From: wloochacz <wloochacz@no.spam.gmail.com> Date: Fri, 6 Apr 2018 17:10:02 +0200 User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.7.0 MIME-Version: 1.0 In-Reply-To: <56026446-0b9d-445a-a5df-1d76319ec320@googlegroups.com> Lines: 21 Message-ID: <5ac78dca$0$1004$65785112@news.neostrada.pl> Organization: Telekomunikacja Polska NNTP-Posting-Host: 83.21.25.245 X-Trace: 1523027402 unt-rea-a-02.news.neostrada.pl 1004 83.21.25.245:58592 X-Complaints-To: abuse@news.neostrada.pl X-Received-Bytes: 1948 X-Received-Body-CRC: 2965433674 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit