Nonvcl Listbox LB_SETTOPINDEX

[EWeiss]

Wieder ListBox kommt noch einiges

Habe eine Function angelegt für MouseWeel.

Delphi-Quellcode:

type
  TSkinListBox = class
  private
    LStyle:     DWORD;
    hFDefault:  hFont;
    BColor,
    FColor:     COLORREF;
    FHOwner:    HWND;
    function DefaultFont: hFont;
    procedure SetCTLFont(hCtL: HWND; Font: hFont);
    procedure  SubClass(WinHandle: HWND);
    procedure UnSubClass(WinHandle: HWND);
  public
    Handle:  HWND;
    procedure DrawItem(lP: Integer);
    procedure ListSetTopIndex(hList: HWND; nTopIndex: Integer);
    function ListGetTopIndex(hList: HWND): Integer;
    constructor Create(hOwner: HWND; FullpathImageName: string; x, y, xW, yH,
      ListID: integer; Visible: Boolean; BackBitmap: string; AktForecolor: COLORREF;
      InAktForecolor: COLORREF; BackColor: COLORREF);
    destructor Destroy; override;
  end;

Delphi-Quellcode:

function TSkinListBox.ListGetTopIndex(hList: HWND): Integer;
var
  nGetTopIndex: Integer;
begin
    nGetTopIndex := -1;

    if hList <> 0 then
    begin
       nGetTopIndex := SendMessage(hList, LB_GETTOPINDEX, 0, 0);
       if nGetTopIndex > -1 then
         inc(nGetTopIndex);
    end;
    Result := nGetTopIndex;
end

Wenn ich nun in der ListBoxProc(nicht in der Classe implementiert) TSkinListBox.ListGetTopIndex aufrufe dann meckert der compiler !

Zitat:

[Pascal Error] uListBox.pas(286): E2076 This form of method call only allowed for class methods

Wie kann ich das abfangen ?

gruss Emil