Re: TEdit i ReadOnly

Article View: pl.comp.lang.delphi

Article #345980

Back to pl.comp.lang.delphi Previous Next

#345980

From: Roman Tyczka
Date: Tue, 01 Aug 2017 13:23

23 lines
1457 bytes

On Tue, 1 Aug 2017 05:49:52 -0700 (PDT), Romek wrote:

> Gdy zmianie ulegnie właściwość Enabled lub Visible, to do kontrolki
> wysyłany jest message CM_ENABLEDCHANGED lub odpowiednio
> CM_VISIBLECHANGED. Czy po zmianie właściwiości ReadOnly jest wysyłany
> komunikat do kontrolki? Nie udało mi się nic znaleźć na ten temat. 

Wystarczy zajrzeć w źródła:

procedure TCustomEdit.SetReadOnly(Value: Boolean);
begin
  if FReadOnly <> Value then
  begin
    FReadOnly := Value;
    if HandleAllocated then
      SendMessage(Handle, EM_SETREADONLY, Ord(Value), 0);
  end;
  FSaveReadOnly := FReadOnly;
end;

-- 
pozdrawiam
Roman Tyczka

Technical Details

Message-ID: <1dq9pu4xxy0gs.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>

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: Tue, 1 Aug 2017 15:23:17 +0200
Organization: ATMAN - ATM S.A.
Lines: 23
Sender: romek@tyczka.no.found
Message-ID: <1dq9pu4xxy0gs.dlg@tyczka.com>
References: <6de12ff6-9384-40c0-997e-100ba2e7d099@googlegroups.com>
NNTP-Posting-Host: 94.75.90.137
Mime-Version: 1.0
X-Trace: node1.news.atman.pl 1501593797 5613 94.75.90.137 (1 Aug 2017 13:23:17 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Tue, 1 Aug 2017 13:23:17 +0000 (UTC)
User-Agent: 40tude_Dialog/2.0.15.84
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message