Ĺadny brzuch
Witam,
Mam okolo 150 róznych produktow, kazdy produkt ma jeden kolor. Jak napisac program ktory wyswietli [w Label1] kolor po wybraniu [z Combobox] produktu?
produkty wpisalem w Items w Properties
narazie napisalem cos takiego.... pisanie warunkow do 150 produktow mija sie z celem, dlatego prosze o pomoc
procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox2.ItemIndex=0 then begin; Label1.Caption:='czerwony'; end; if ComboBox2.ItemIndex=1 then begin; Label1.Caption:='niebieski'; end; end
Użytkownik polhub edytował ten post 21 listopad 2008, 19:53
Masz tablice z kolorami i przy zdarzeniu onchange, przypisujesz:
label1.caption := tablica_z_kolorami[ComboBox2.ItemIndex];
Witam,
Mam okolo 150 róznych produktow, kazdy produkt ma jeden kolor. Jak napisac program ktory wyswietli [w Label1] kolor po wybraniu [z Combobox] produktu?
produkty wpisalem w Items w Properties
narazie napisalem cos takiego.... pisanie warunkow do 150 produktow mija sie z celem, dlatego prosze o pomoc
procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox2.ItemIndex=0 then begin; Label1.Caption:='czerwony'; end; if ComboBox2.ItemIndex=1 then begin; Label1.Caption:='niebieski'; end; end
Label1.Caption:=ComboBox1.Text;
@statjacek
Autor tematu napisał, że w Combo są produkty. Twój kod przypisze do Label produkt, który zostanie wybrany w Combo, a nie jego kolor.
Witam,
Mam okolo 150 róznych produktow, kazdy produkt ma jeden kolor. Jak napisac program ktory wyswietli [w Label1] kolor po wybraniu [z Combobox] produktu?
produkty wpisalem w Items w Properties
narazie napisalem cos takiego.... pisanie warunkow do 150 produktow mija sie z celem, dlatego prosze o pomoc
procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox2.ItemIndex=0 then begin; Label1.Caption:='czerwony'; end; if ComboBox2.ItemIndex=1 then begin; Label1.Caption:='niebieski'; end; end
taki mały szczegół skoro do warunku dajesz tylko 1 polecenie to po co za każdym razem piszesz begin end ??
wystarczy
if ComboBox2.ItemIndex=0 then Label1.Caption:='czerwony'; if ComboBox2.ItemIndex=1 then Label1.Caption:='niebieski';
Użytkownik ari123 edytował ten post 23 listopad 2008, 15:00
@statjacek
Autor tematu napisał, że w Combo są produkty. Twój kod przypisze do Label produkt, który zostanie wybrany w Combo, a nie jego kolor.
Upsssssss
Przepraszam za offtop, ale proszę o pomoc. Co w Visual Basic jest odpowiednikiem Caption z Delphi?
// edit Już wiem.
Użytkownik User of the computer edytował ten post 06 grudzień 2008, 16:32
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam okolo 150 róznych produktow, kazdy produkt ma jeden kolor. Jak napisac program ktory wyswietli [w Label1] kolor po wybraniu [z Combobox] produktu?
produkty wpisalem w Items w Properties
narazie napisalem cos takiego.... pisanie warunkow do 150 produktow mija sie z celem, dlatego prosze o pomoc
procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox2.ItemIndex=0 then begin; Label1.Caption:='czerwony'; end; if ComboBox2.ItemIndex=1 then begin; Label1.Caption:='niebieski'; end; end
Użytkownik polhub edytował ten post 21 listopad 2008, 19:53
Masz tablice z kolorami i przy zdarzeniu onchange, przypisujesz:
label1.caption := tablica_z_kolorami[ComboBox2.ItemIndex];
Witam,
Mam okolo 150 róznych produktow, kazdy produkt ma jeden kolor. Jak napisac program ktory wyswietli [w Label1] kolor po wybraniu [z Combobox] produktu?
produkty wpisalem w Items w Properties
narazie napisalem cos takiego.... pisanie warunkow do 150 produktow mija sie z celem, dlatego prosze o pomoc
procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox2.ItemIndex=0 then begin; Label1.Caption:='czerwony'; end; if ComboBox2.ItemIndex=1 then begin; Label1.Caption:='niebieski'; end; end
Label1.Caption:=ComboBox1.Text;
@statjacek
Autor tematu napisał, że w Combo są produkty. Twój kod przypisze do Label produkt, który zostanie wybrany w Combo, a nie jego kolor.
Witam,
Mam okolo 150 róznych produktow, kazdy produkt ma jeden kolor. Jak napisac program ktory wyswietli [w Label1] kolor po wybraniu [z Combobox] produktu?
produkty wpisalem w Items w Properties
narazie napisalem cos takiego.... pisanie warunkow do 150 produktow mija sie z celem, dlatego prosze o pomoc
procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox2.ItemIndex=0 then begin; Label1.Caption:='czerwony'; end; if ComboBox2.ItemIndex=1 then begin; Label1.Caption:='niebieski'; end; end
taki mały szczegół skoro do warunku dajesz tylko 1 polecenie to po co za każdym razem piszesz begin end ??
wystarczy
if ComboBox2.ItemIndex=0 then Label1.Caption:='czerwony'; if ComboBox2.ItemIndex=1 then Label1.Caption:='niebieski';
Użytkownik ari123 edytował ten post 23 listopad 2008, 15:00
@statjacek
Autor tematu napisał, że w Combo są produkty. Twój kod przypisze do Label produkt, który zostanie wybrany w Combo, a nie jego kolor.
Upsssssss
Przepraszam za offtop, ale proszę o pomoc. Co w Visual Basic jest odpowiednikiem Caption z Delphi?
// edit Już wiem.
Użytkownik User of the computer edytował ten post 06 grudzień 2008, 16:32