Re: TEdit i ReadOnly

Article View: pl.comp.lang.delphi

Article #345984

Back to pl.comp.lang.delphi Previous Next

#345984

From: zpksoft
Date: Wed, 02 Aug 2017 09:10

29 lines
2590 bytes

W dniu środa, 2 sierpnia 2017 10:31:29 UTC+2 użytkownik Roman Tyczka napisał:
> On Wed, 2 Aug 2017 01:16:17 -0700 (PDT), zpksoft 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.
> >> 
> > To nie jest komunikat wysyłany do systemu tylko do obiektu o uchwycie "handle", czyli do kontrolki.
> 
> Pisząc w cudzysłowie "systemu" Romek miał na myśli, że kontrolka TEdit
> (oraz kilka innych) to wrappery na systemowe kontrolki i komunikaty lecą
> właśnie do niższej warstwy obsługiwanej przez system.
> 
> -- 
> pozdrawiam
> Roman Tyczka

Tak, wiem. Ale to niczego nie zmienia. Jeśli dobrze zrozumiałem Romka to wystarczy pokryć metodę  setReadOnly i dać modyfikację, np.

  if FReadOnly <> Value then
  begin
    FReadOnly := Value;
    if HandleAllocated then
    begin  
      SendMessage(Handle, EM_SETREADONLY, Ord(Value), 0);
      NpPomalujCosNaCanvasieKontrolki();
    end;
  end;
  FSaveReadOnly := FReadOnly; 

Paweł

Technical Details

Message-ID: <d3337b5b-fecd-4082-8028-1b94b65c0e13@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.glorb.com!u14no61390ita.0!news-out.google.com!196ni2051itl.0!nntp.google.com!u14no61383ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References:

<6de12ff6-9384-40c0-997e-100ba2e7d099@googlegroups.com> <1dq9pu4xxy0gs.dlg@tyczka.com> <05d027e4-68df-463c-9797-f2767c5e588a@googlegroups.com> <32d3aafd-ccd2-4ee4-a511-74b7bd30ef87@googlegroups.com> <9nvl2ckfywmt.dlg@tyczka.com>

Show Full Headers

Complete Article Headers

X-Received: by 10.99.179.5 with SMTP id i5mr5565094pgf.208.1501665006458;        Wed, 02 Aug 2017 02:10:06 -0700 (PDT)
X-Received: by 10.36.121.216 with SMTP id z207mr205894itc.4.1501665006412; Wed, 02 Aug 2017 02:10:06 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.glorb.com!u14no61390ita.0!news-out.google.com!196ni2051itl.0!nntp.google.com!u14no61383ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.delphi
Date: Wed, 2 Aug 2017 02:10:05 -0700 (PDT)
In-Reply-To: <9nvl2ckfywmt.dlg@tyczka.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=83.22.125.35; posting-account=8ND_mgoAAAD5J9y9fnaTB1Kcu7xKWk7Q
NNTP-Posting-Host: 83.22.125.35
References: <6de12ff6-9384-40c0-997e-100ba2e7d099@googlegroups.com> <1dq9pu4xxy0gs.dlg@tyczka.com> <05d027e4-68df-463c-9797-f2767c5e588a@googlegroups.com> <32d3aafd-ccd2-4ee4-a511-74b7bd30ef87@googlegroups.com> <9nvl2ckfywmt.dlg@tyczka.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <d3337b5b-fecd-4082-8028-1b94b65c0e13@googlegroups.com>
Subject: Re: TEdit i ReadOnly
From: zpksoft <zpksoft@op.pl>
Injection-Date: Wed, 02 Aug 2017 09:10:06 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message