콤보 박스의 각각의 Item은 Class가 아니기 때문에..
직접 코딩으로 구현하는 수 밖에 없습니다..
현재 어떤 Item이 Focus를 가졌는 가는 아래와 같이 알 수 있습니다..
이때 Style이라는 프로퍼티는 csOwnerDrawFixed 또는 csOwnerDrawVariable로..
되어 있어야 하고..
아래 소스에서 각각의 Item을 그리는 작업을 첨가 해주셔야 합니다..
물론 힌트도요..
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
Caption:= IntToStr(Index);
end;
From 류..
|