schrift-details

[KodeZwerg]

Per Non-VCL (WinAPI) macht man es so:

Delphi-Quellcode:

//global
var
   hFont: Integer;

//nachdem du deine Klasse und Controls erzeugt hast, vor der Message-Loop, kommt das:
  hFont := CreateFont(-13, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');
// damit ist in "hFont" alles hinterlegt was man benötigt.
// nun muss man den Controls noch mitteilen, hey du, nutze bitte diese font
  if hFont <> 0 then
  begin
    SendMessage(DeineControlID, WM_SETFONT, hFont, 0);
  end;
// um es letzten endes auch darzustellen
 UpdateWindow(Handle);


// nach der message loop auch wieder bereinigen!
    DeleteObject(hFont);