I am unable to subclass this control, Why
function WndCallback(Ahwnd: HWND; uMsg: UINT; wParam: WParam; lParam: LParam):LRESULT; stdcall;
var
hdcStatic : HDC;
Begin
case uMsg of
WM_CTLCOLORSTATIC:
Begin
hdcStatic := HDC(wParam);
SetTextColor(hdcStatic, RGB(23,73,107));
SetBkColor(hdcStatic, RGB(0,0,0));
result := LRESULT(GetStockObject(NULL_BRUSH));
End;
End;
result:=CallWindowProc(PrevWndProc,Ahwnd, uMsg, WParam, LParam);
End;