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

[Sir Rufo]

Musst Du die Proc dann nicht als class procedure deklarieren? ;)

[EWeiss]

Zitat:

Zitat von Sir Rufo

Musst Du die Proc dann nicht als class procedure deklarieren? ;)

Hmm verstehe nicht was du jetzt meinst.

gib mir einen TIP ;)
Kann zwar halbwegs mit API aber einige dinge von Delphi sind mir noch nicht bekannt :)

gruss EMil

[Sir Rufo]

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);
    class function ListGetTopIndex(hList: HWND): Integer;  // <-- DA IS :)
    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;

Du willst ja mit der Klasse die Funktion aufrufen und nicht mit einer Objekt-Referenz ... das muss man bei der Klassendefinition berücksichtigen.

[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