🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: TEdit i ReadOnly

#345960
From: Roman Tyczka
Date: Wed, 02 Aug 2017 07:45
14 lines
1462 bytes
On Tue, 1 Aug 2017 13:38:32 -0700 (PDT), Romek wrote:

> Niewłaściwie opisałem mój problem. Komunikat EM_SETREADONLY jest wysyłany do "systemu". Czy system wysyła w odpowiedzi jakiś komunikat do aplikacji inforujący, że stan kontrolki (ReadOnly) uległ zmianie? Stworzyłem klasę potomną dla TCustomEdit i chciałbym aby reagowała na zmianę właściwości ReadOnly.

Żeby to sprawdzić możesz nadpisać metodę TWinControl:

procedure WndProc(var Message: TMessage); override;

i tam się dowiesz co kontrolka dostaje i kiedy.


-- 
pozdrawiam
Roman Tyczka
Technical Details
Message-ID: <1dtvtwxrlmudu$.dlg@tyczka.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
References: <6de12ff6-9384-40c0-997e-100ba2e7d099@googlegroups.com> <1dq9pu4xxy0gs.dlg@tyczka.com> <05d027e4-68df-463c-9797-f2767c5e588a@googlegroups.com>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
From: Roman Tyczka <noemail@because.no>
Newsgroups: pl.comp.lang.delphi
Subject: Re: TEdit i ReadOnly
Date: Wed, 2 Aug 2017 09:45:39 +0200
Organization: ATMAN - ATM S.A.
Lines: 14
Sender: romek@tyczka.no.found
Message-ID: <1dtvtwxrlmudu$.dlg@tyczka.com>
References: <6de12ff6-9384-40c0-997e-100ba2e7d099@googlegroups.com> <1dq9pu4xxy0gs.dlg@tyczka.com> <05d027e4-68df-463c-9797-f2767c5e588a@googlegroups.com>
NNTP-Posting-Host: 94.75.90.137
Mime-Version: 1.0
X-Trace: node2.news.atman.pl 1501659941 17109 94.75.90.137 (2 Aug 2017 07:45:41 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Wed, 2 Aug 2017 07:45:41 +0000 (UTC)
User-Agent: 40tude_Dialog/2.0.15.84
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit