nonvcl Font problem (ListBox)

[EWeiss]

Ich erstelle einen DefaultFont
TMListBox.hFont := DefaultFont;

Delphi-Quellcode:

function TListBox.DefaultFont: HWND;
begin
  if hFDefault = 0 then
    hFDefault := GetStockObject(ANSI_VAR_FONT);

  Result := hFDefault;
end;

und weise den der Listbox zu!
SetCTLFont(TMListBox.hWnd, TMListBox.hFont);

Delphi-Quellcode:

procedure TListBox.SetCTLFont(hCtL: HWND; Font: hFont);
begin
  SendMessage(hCtL, WM_SETFONT, Font, 1);
end;

Anwendung startet alles ok.
Sobald ich nun die Listbox aufrufe kracht es.

gruss Emil

[Luckie]

Wenn es kracht, musst du deine IDE leiser Stellen. An welcher Stelle im Code strürzt das Programm ab? Bist du mal mit dem Debugger durchgegangen?

[EWeiss]

Zitat von Luckie:

Wenn es kracht, musst du deine IDE leiser Stellen. An welcher Stelle im Code strürzt das Programm ab? Bist du mal mit dem Debugger durchgegangen?

Hast sicherlich recht das ist immer so laut !
Hat sich erledigt das stimmt schon so hatte ein problem in meiner DrawItem Function.

gruss Emil