2 Comboboxy DELPHI

kelso

Zdar, je tu podobna tema, ale ohladom PHP, takze som vytvoril dalsiu ohladom delphi. Potrebujem nieco take, ze sa z comboboxu vyberie kategoria a potom sa v druhom comboboxe zobrazia podkategorie tej prvej. Ako to spravit, aj som googlil, ale nic som nenasiel. DIK

paralen

Takto sa to da napriklad:

Kód: Vybrať všetko

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case combobox1.ItemIndex of
     0:begin    //prva polozka v comboboxe1
       with combobox2.Items do
          begin
          Clear;
          Add('paradajky');
          Add('uhorky');
          Add('paprika');
          end;
       end;
     1:begin   //druha polozka v comboboxe1, u mna ovocie :D
       with combobox2.Items do
          begin
          Clear;
          Add('broskyna');
          Add('jablko');
          Add('hruska');
          end;
       end;
  end;
end;

kelso

DIk. a prosim ta, ako by to bolo s 3. combobox-ami? to co bude v tom tretom bude zavisle od tych predchadzajucich oboch, alebo len od toho druheho? ale to co obsahuje druhy, tiez len zavisi od toho prveho.

kelso napísal:DIk. a prosim ta, ako by to bolo s 3. combobox-ami? to co bude v tom tretom bude zavisle od tych predchadzajucich oboch, alebo len od toho druheho? ale to co obsahuje druhy, tiez len zavisi od toho prveho.

to je už na tebe ako to spravíš čo bude od čoho závislé

kelso

praveze som z toho blby. nemozem pouzit v podmienke ItemIndex comboboxu 2, pretoze to sa meni v zavislosti od vyberu v comboboxe 1. tak co dat do podmienky?

kelso napísal:praveze som z toho blby. nemozem pouzit v podmienke ItemIndex comboboxu 2, pretoze to sa meni v zavislosti od vyberu v comboboxe 1. tak co dat do podmienky?

nemusíš používať iba itemindex, môžeš použiť vlastnosť text (tuším je to text, nechce s mi teraz otvárať delphi) ktorá vráti text práve vybranej možnosti tak, ako itemindex vyberá jej poradové číslo

//autoeditácia príspevku ( 16 Aug 2009, 21:27 )

kelso napísal:tak potom by to malo byt Caption. idem to skusit.

je to text, žiadne caption

Kód: Vybrať všetko

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
showmessage(ComboBox1.Text);
end;

kelso

dik, vyriesil som to

Kód: Vybrať všetko

If Combobox2.Text = ('text') then Label1.Caption:=('text');