Article View: pl.comp.lang.delphi
Article #346776Re: Delphi 10.2 - DBGrid brak reakcji na prawy klawisz myszy jeśli są rekordy
From: kameleonsql
Date: Sun, 05 May 2019 17:30
Date: Sun, 05 May 2019 17:30
18 lines
2372 bytes
2372 bytes
Witam,
problem rozwiązałem ostatecznie dość prosto i to już jakiś czas temu, dziś zerknąłem na grupę i przypomniałem sobie o tym. Piszę, bo rozwiązanie jest banalne, a jak wiemy takie są najlepsze :-). Po prostu wykorzystałem zdarzenie z TPopupMenu (to jeszcze działa dobrze w Delphi, nie wiadomo jak długo :-)) OnPopup i do dynamicznego zamknięcia TPopupMenu (no nie działa np. CloseMenu w Delphi 10.2). Coś takiego ....
procedure TForm1.PopupTriggerPopup(Sender: TObject);
begin
try
// kod do wykonania
finally
PostMessage(PopupTrigger.WindowHandle, WM_LBUTTONDOWN, MK_LBUTTON, 0);
PostMessage(PopupTrigger.WindowHandle, WM_LBUTTONUP, MK_LBUTTON, 0);
end;
end;
Może się komuś przyda ...
----
Pozdrawiam
Roman
Technical Details
Message-ID:
<b06319bd-b25c-42ce-9d48-b0dc488d7799@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!takemy.news.telefonica.de!telefonica.de!weretis.net!feeder7.news.weretis.net!news.mixmin.net!proxad.net!feeder1-2.proxad.net!209.85.166.215.MISMATCH!b2no486638itd.0!news-out.google.com!v82ni552ita.0!nntp.google.com!136no486776itk.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mailReferences:
<6e524648-29f0-4af2-bdbe-9fd914a30fa3@googlegroups.com> <pp876r$6sb$1@node1.news.atman.pl> <5d8ea4c0-7de4-4ef4-97da-8c964be85bae@googlegroups.com> <1dlulmtrlqgbh.dlg@tyczka.com> <8a005f47-53e5-43ce-aef5-8007823da7c7@googlegroups.com> <ppcf8q$ph9$1@node2.news.atman.pl>Show Full Headers
Complete Article Headers
X-Received: by 2002:a24:c6c6:: with SMTP id j189mr15879781itg.85.1557077416035; Sun, 05 May 2019 10:30:16 -0700 (PDT) X-Received: by 2002:a9d:587:: with SMTP id 7mr3154566otd.280.1557077415782; Sun, 05 May 2019 10:30:15 -0700 (PDT) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!takemy.news.telefonica.de!telefonica.de!weretis.net!feeder7.news.weretis.net!news.mixmin.net!proxad.net!feeder1-2.proxad.net!209.85.166.215.MISMATCH!b2no486638itd.0!news-out.google.com!v82ni552ita.0!nntp.google.com!136no486776itk.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: pl.comp.lang.delphi Date: Sun, 5 May 2019 10:30:15 -0700 (PDT) In-Reply-To: <ppcf8q$ph9$1@node2.news.atman.pl> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=91.234.102.48; posting-account=lJNmiQoAAAAcuwZEAibFvFBE7IgRs9bN NNTP-Posting-Host: 91.234.102.48 References: <6e524648-29f0-4af2-bdbe-9fd914a30fa3@googlegroups.com> <pp876r$6sb$1@node1.news.atman.pl> <5d8ea4c0-7de4-4ef4-97da-8c964be85bae@googlegroups.com> <1dlulmtrlqgbh.dlg@tyczka.com> <8a005f47-53e5-43ce-aef5-8007823da7c7@googlegroups.com> <ppcf8q$ph9$1@node2.news.atman.pl> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <b06319bd-b25c-42ce-9d48-b0dc488d7799@googlegroups.com> Subject: Re: Delphi 10.2 - DBGrid brak reakcji na prawy klawisz myszy jeśli są rekordy From: kameleonsql@gmail.com Injection-Date: Sun, 05 May 2019 17:30:16 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit