Message überschreiben

[venice2]

In CSharp kann man eine Message überschreiben
bsp.

Code:

 Marshal.WriteInt32(Msg.LParam + 4 * sizeof(int), RowHeight);

wie lässt sich das in Delphi umsetzen?

Ich habe es mal so gemacht.

Delphi-Quellcode:

  
const
  WM_REFLECT = $2000;

    // Overwrite itemHeight, which is the fifth integer in MEASUREITEMSTRUCT   
  WM_REFLECT + WM_MEASUREITEM: // wird nie aufgerufen obwohl wie im Beitrag steht (sollte einmal bei LVReport) "Detail view" sich aufrufen.
      begin
        x := (Lp + 4 * sizeof(LPARAM));
        CopyMemory(@lP, @x, 20);
        Result := 1;
        Exit;
      end;

keine Ahnung ob das dem gleich kommt.
Der Sinn der Sache ich möchte mein ListViewItem in der höhe verändern ohne dabei den Font zu verändern!

https://stackoverrun.com/de/q/1650434