아래처럼 잘되는 군요..

따로 설명을 드릴 만한 곳이 없어 보여서..
소스만 올립니다..


Voice of Delphi, 류..

-----------------------------------------

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  TListBox(Control).Canvas.Ellipse(Rect);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  With TListBox.Create(Form1) do Begin
    Parent:= Form1;
    Left:= 100;
    Top:= 100;
    Style:= lbOwnerDrawFixed;
    OnDrawItem:= ListBox1DrawItem;

    Items.Add('a');
    Items.Add('b');
    Items.Add('c');
  End;
end;

end.

성필 님이 쓰신 글 :
: 안녕하세요.
: 리스트박스에 그림넣는 예제를 구해서 분석중입니다.
: 그런데..제가 하는 프로그램의 특성상 동적생성을 해야하는데..
: 이넘이 동적생성으로 하면 안됩니다.
: 제가 잘못한건지..
: 리스트박스를 동적으로 생성한후에 문자열대신 그림넣는 방법좀 알려 주십시요..
: 아님..비슷한 기능의 컴포넌트라도..
: 그럼~이만..