Change Listbox color with OnEnter and OnExit
Posted on 2004-08-12
I would like to change the Listbox color when you click on it and another color once another control has focus.
Listbox has focus, color = red.
Listbox has no focus, color = white.
procedure TForm1.ListBox1Enter(Sender: TObject);
ListBox1.Color := clBlue;
procedure TForm1.ListBox1Exit(Sender: TObject);
ListBox1.Color := clWindow;
But once the listbox has a few lines the color doesn't changed properly.