Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#3

AW: TInterfacedObject Subclass

  Alt 11. Mär 2011, 08:05
Zitat:
Seit ich meine Listbox auf Interface umgestellt habe kann ich die Listbox nicht mehr subclassen.
Wie äussert sich das? Fehlermeldung?
Außer der Meldung Access violation kommt da leider nichts..
Es kracht auf jedenfall in der Winproc.

Kann aber ohne probleme compilieren.
Die Listbox befindet sich in einer DLL und wird von außen aufgerufen.

Delphi-Quellcode:
    InstrumentList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Sound.png'),
      145, 62, 610, 268, ID_INSTRUMENTLIST, True, 18, SKAERO_INACTIVECAPTION);
    SKAERO_SetAnchorMode(InstrumentList.Handle, ANCHOR_RIGHT);
    SKAERO_SetZorder(InstrumentList.Handle, ANCHOR_RIGHT);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);

Rückgabe der Winproc
  Result := CallWindowProc(Pointer(PrevWndProcLB), WinHandle, Msg, wP, lP);

gruss

Geändert von EWeiss (11. Mär 2011 um 08:09 Uhr)
  Mit Zitat antworten Zitat