🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: Delphi 10.2 - DBGrid brak reakcji na prawy klawisz myszy jeśli są rekordy

#346770
From: Krzysztof Szyszka
Date: Fri, 05 Oct 2018 17:31
31 lines
2705 bytes
> Skończyłem właśnie migrować te parę milionów linii kodu z Delphi 2010 do
> 10.2. Generalnie przez tydzień to się dało zrobić, (trochę komponentów innych firm, swoich i
> niespodzianek typu GotoBookmark(TArray<Byte>(pointer(DBGridView.SelectedRows.Items[i])
> i zabawy z Unitami, ale kod jest już przeniesiony i działa).

Z tym GotoBookmark to pojechałeś na maksa :-)
Wystarczy proste: DataSet.GotoBookmark(DBGridView.SelectedRows[i])
albo nawet DataSet.Bookmark := DBGridView.SelectedRows[i])

> Być może jestem już zmęczony, ale pozostała jeszcze jedna zagwozdka (pamiętam ten problem chyba w
> D7 był, ale w D2010 to działało dobrze). Potrzebuje zdarzenie OnMouseDown i detekcję prawego
> klawisza myszy w DBGrid, działa tylko jeśli mysz zostanie użyta na obszarze DBGrid bez rekordów.
> Ktoś to już przerabiał ?

Z tego, co widzę w kodzie DBGrida dla Delphi 10.2 Tokyo, to nic się nie zmieniło od czasów Delphi 6
w kwestii detekcji prawego klawisza myszy w zdarzeniu OnMouseDown. Nadal nie jest wywoływane.

> Znalazłem coś takiego (wykopalisko z 2002), ale chyba nie muszę ruszać źródeł w 10.2 ?

Z tego, co widzę w kodzie, to nadal musisz, ale nie na zasadzie kopiuj i wklej, tylko przez
wprowadzenie identycznej poprawki do metody TCustomDBGrid.MouseDown dla Delphi 10.2,
która nieco się zmieniła, ale jej końcowy fragment jest identyczny z tym dla Delphi 6.

Z ciekawości napisz mi, gdzie to wygrzebałeś :-)

-- 
pozdrowienia
Krzysztof Szyszka, X-Files Software
Developer of X-DBGrid Component
Embarcadero Technology Partner
http://www.x-files.pl/ 
Technical Details
Message-ID: <pp876r$6sb$1@node1.news.atman.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
References: <6e524648-29f0-4af2-bdbe-9fd914a30fa3@googlegroups.com>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
From: "Krzysztof Szyszka" <nomail@gazeta.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Re: Delphi 10.2 - DBGrid brak reakcji na prawy klawisz myszy
 jeśli są rekordy
Date: Fri, 5 Oct 2018 19:31:55 +0200
Organization: ATMAN - ATM S.A.
Lines: 32
Message-ID: <pp876r$6sb$1@node1.news.atman.pl>
References: <6e524648-29f0-4af2-bdbe-9fd914a30fa3@googlegroups.com>
NNTP-Posting-Host: 89-77-104-79.dynamic.chello.pl
Mime-Version: 1.0
X-Trace: node1.news.atman.pl 1538760731 7051 89.77.104.79 (5 Oct 2018 17:32:11 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Fri, 5 Oct 2018 17:32:11 +0000 (UTC)
In-Reply-To: <6e524648-29f0-4af2-bdbe-9fd914a30fa3@googlegroups.com>
X-Priority: 3
X-MSMail-Priority: Normal
Importance: Normal
X-Newsreader: Microsoft Windows Live Mail 16.4.3528.331
X-MimeOLE: Produced By Microsoft MimeOLE V16.4.3528.331
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit