Jak dodać tło dla niekażdego komponentu

wystarczy do FormCreate dopisać:

var Tlo:TBitMap;
begin
Tlo:=TbitMap.Create;
Tlo.LoadFromfile('tlo.bmp');
 listbox1.Brush.Bitmap := tlo;
end;

będzie to wyglądało tak:

procedure TForm1.FormCreate(Sender: TObject);
var Tlo:TBitMap;
begin
Tlo:=TbitMap.Create;
Tlo.LoadFromfile('jason.bmp');
listbox1.Brush.Bitmap := tlo;
end;

Dołączam przykład :D

Jeden z forumowiczów napisał w poście:

Ja troszkę pobawiłem się tym efektem i oto rezultaty:

• działa prawidłowo
  TreeView
  ListView
  DateTimePicker
  MonthCalendar
  ListBox
  Form
  RadioButton
  CheckBox
  Panel
  TrackBar
  CoolBar
  TabControl
  TabSheet

• nie działa prawidłowo, mimo, że można ustawić
  Button (brak efektu)
  ProgressBar (brak efektu)
  Edit (tylko obramowanie ma obrazek)
  ComboBox (tylko tło rozwijanej listy i obramowanie mają obrazek)
  TabControl (obrazek ma wszystko z wyjątkiem zakładek)
  PageControl (obranowanie stron ma obrazek)