Свободная переменная создания GetWindowDC в Delphi

Question

У меня есть компонент кожи, который рисует ComboBox, как это:

procedure TBaseComboBox.DrawBorders; 
var 
    DC: HDC; 
begin 
    DC := GetWindowDC(Handle); 
    try 
    DrawControlBorder(DC); 

    if Style <> csSimple then 
     DrawButtonBorder(DC); 

    finally 
    ReleaseDC(DC, Handle); 
    end; 
end; 

Моя проблема заключается в том, что при выполнении ReleaseDC, компонент не уничтожается. Мне удалось достичь этого вывода, используя программу GDIView 1.6

Что мне делать, чтобы попытаться уничтожить эту переменную.

Answer 1

Параметры в вашем вызове ReleaseDC() обращены назад. Прочтите documentation. Первый параметр должен быть HWND, что HDC пришел, а второй параметр должен быть сам HDC:

//ReleaseDC(DC, Handle); 
ReleaseDC(Handle, DC);