Не рисует на компоненте. Где ошибка?

← →
Виктор (2002-06-01 00:00) [0]

Пытаюсь нарисовать красную рамку на комбобоксе, но она не рисуется. Если закомментировать inherited, то компонент не прорисовывается, но зато рисуется рамка. А как нарисовать рамку поверх комбобокса?

procedure TMyComboBox.WMPaint(var Message: TWMPaint);
var R: TRect;
FrameBrush: HBRUSH;
DC: HDC;
begin
inherited;
if HandleAllocated then begin
DC := GetDC(Handle);
FrameBrush := CreateSolidBrush(ColorToRGB(clRed));
R := Bounds(0, 0, 20, 20);
FrameRect(DC, R, FrameBrush);
DeleteObject(FrameBrush);
ReleaseDC(Handle, DC);
end;
end;

← →
Виктор (2002-06-01 00:19) [1]

Оказывается, что не рисует рамку, когда я кладу компонент на форму (designtime). Если ткнуть в компонент, то рамка появляется. Если изменить размер компонента, то рамка пропадает. Событие WMSize я тоже обрабатываю и рисую рамку. Подскажите, пожалуйста.

Не рисует на компоненте. Где ошибка? Найти похожие ветки