Jak dodać tło dla niekażdego komponentu

Talib

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)

8 komentarzy

Miał być \"świetnie zredagowany materiał\" a wyszła kupa w papierku... taki faq to można sobie nie powiem gdzie wsadzić...
poprawka albo del

Co oznacza ten tytuł???

@marooned: no co tez jest porada nie ? :P
// no prosze odrobina edycji i juz lepiej :)

migajek [green] :D

Ale szkolenie...u hu hu :D

jak wyswietlic okienko?
MessageBox(0,\'yo\',\'!\',0);

Rownie dobrze przygotowany material... Powiedzialbys chociaz gdzie to ma byc itp bo inaczej sie poczatkujacym nie przyda ...

i co z tym? napisz gdzie to wklepać, dodaj jakiś komentarz. Rzuciłeś kodem i tyle.

chociaż wcięcia byś porobił jak należy :P