求救，有些麻烦！

Question

1.如果form1是程序的主窗口,就比较麻烦;2.你使用的是show还是showmodal?
如果不是主窗口而且使用了showmodal,可以:
...
form1.showmodal;
form2.showmodal;
...

Answer 1

在listbox的OnDrawItem事件中加入下面的代码
注意listbox的style要选择lbOwnerDrawFixedprocedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if index mod 2 = 0 then
    listbox1.canvas.font.color := clBlue
  else
    listbox1.canvas.font.color := clRed;
  listbox1.Canvas.TextRect(Rect,rect.left,rect.top,listbox1.Items.strings[index]); 
end;