Получение дескриптора шрифта
Есть дескриптор окна имеющего фокус ввода: Handle:=GetFocus;
Как получить дескриптор шрифта HFont, используемого вданный момент, в данном окне.
Премного благодарен.
var
Handle: THandle; //Дескриптор окна
HandleFont: THandle; //Дескриптор шрифта
begin
..................
HandleFont:= SendMessage(Handle, WM_GetFont, 0, 0);
................
end;
var
Handle: THandle; //Дескриптор окна
HandleFont: THandle; //Дескриптор шрифта
begin
..................
HandleFont:= SendMessage(Handle, WM_GetFont, 0, 0);
................
end;
var
Handle: THandle; //Дескриптор окна
HandleFont: THandle; //Дескриптор шрифта
begin
..................
HandleFont:= SendMessage(Handle, WM_GetFont, 0, 0);
................
end;