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