Nonvcl Listbox LB_SETTOPINDEX

[EWeiss]

Danke!
Ahh wieder was dazu gelernt.
Funktioniert.

Delphi-Quellcode:

class 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;

Ähnlich byRef in VB denk ich mal..
Muss man wissen

gruss Emil