Изменение свойств шрифта у кнопки

← →
AHTOH (2004-07-13 17:07) [0]

Добрый день, мастера!

Как программно изменить свойства шрифта у кнопки или иного объекта?

пробую так:

...
var LogRec : TLOGFONT; _hFont : HFONT; begin GetObject(Wnd, SizeOf(LogRec), Addr(LogRec)); LogRec.lfCharSet := EASTEUROPE_CHARSET; LogRec.lfItalic := 1; _hFont := CreateFontIndirect(LogRec); SendMessage(Btns[3],WM_SETFONT,_hFont,1); end;

но что-то ничего не выходит. Заранее спасибо

← →
YuRock © (2004-07-13 20:37) [1]

Попробуй вместо
GetObject(Wnd, SizeOf(LogRec), Addr(LogRec));
написать
GetObject(SendMessage(Wnd, WM_GETFONT, 0, 0), SizeOf(LogRec), Addr(LogRec));

:)

Изменение свойств шрифта у кнопки Найти похожие ветки