Hallo!
Weiß jemand, wie ich die Standard-Font von Windows auslese???
Delphi-Quellcode:
function GetSystemFont: TFont;
var SysFont: TFontM
begin
with SysFont do begin
create;
size := 10;
color := clWindowText;
style := [];
name := {?! System-Font !?} ;
end;
result := f
SysFont.Free;
end;