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