[x64] SendMessage nimmt lparam nicht an

[DCoderHH]

Ich stelle meinen Code von 32 auf 64-bit um. Datei gibt es diesen Fehler:

Code:

[dcc64 Fehler] E2089 Ungültige Typumwandlung

in diesem Code

Delphi-Quellcode:

var
  wnd: HWND;
  Pt: TPoint;
  i: Integer;
 
begin
  ...
  i := SendMessage(wnd, LB_ITEMFROMPOINT, 0, ***lparam(PointToSmallpoint(Pt))***); <-- Fehler bei ***
  ...
end;

Was ist die Lösung dafür? Danke!

[himitsu]

In diesem Fall besser Integer/LongInt statt LPARAM verwenden.

SmallPoint hat überall die selbe Größe.

[DCoderHH]

Zitat von himitsu:

In diesem Fall besser Integer/LongInt statt LPARAM verwenden.

SmallPoint hat überall die selbe Größe.

Danke, mit Integer(...) geht's. Wundert mich nur etwas, dass der Parameter von SendMessage vom Typ LPARAM ist und nicht vom Typ Integer...

[Uwe Raabe]

Zitat von DCoderHH:

Wundert mich nur etwas, dass der Parameter von SendMessage vom Typ LPARAM ist und nicht vom Typ Integer...

Na ja, der Parameter ist nun mal vom Typ LPARAM. Lediglich dein Cast funktioniert damit nicht, da unter 64-Bit ein TSmallPoint eben eine andere Größe hat als LPARAM. Nach dem Cast auf Integer erweitert der Compiler den Integer-Wert dann implizit auf LPARAM.

[Stevie]

Deshalb benutzt man ja auch PointToLParam

[KodeZwerg]

MakeLParam( Pt.X, Pt.Y ) sollte auch reibungslos funktionieren falls es nicht das gleiche ist.

[himitsu]

Zitat von KodeZwerg:

MakeLParam( Pt.X, Pt.Y ) sollte auch reibungslos funktionieren falls es nicht das gleiche ist.

Fast.

Hier natürlich am Ziel nicht nach TPoint casten, sondern den lParam "richtig" konvertieren.
Warum ist Windows hier nicht konsequent?

Delphi-Quellcode:

lParam = MakeLParam(MyX, MyY) 
lParam = PointToLParam(MyPoint)
lParam = SmallPointToPoint(MySmallPoint)

Aber die Umkehrfunktionen fehlen.

So wie es auch hier gemacht wurde.

Delphi-Quellcode:

function RGB(r, g, b: Byte): COLORREF;
function GetRValue(rgb: DWORD): Byte;
function GetGValue(rgb: DWORD): Byte;
function GetBValue(rgb: DWORD): Byte;

type 
  LOWORD = Word;
  LOBYTE = Byte;
function MakeWord(A, B: Byte): Word;
function MakeLong(A, B: Word): Longint;
function HiWord(L: DWORD): Word;
function HiByte(W: Word): Byte;

MakeLong <> HiWord und LoWord
MakeWord <> HiByte und LoByte