TComboBox

← →
Builder (2004-01-26 23:46) [0]

подскажите,как получить значение выбранного Item в ComboBox
т.е.
есть ComboBox1 (1,2,3,4) и ComboBox2
если Combobox1.items выбрать 1, тогда comboBox2 (11,12,13,14 и т.д.
Вообщем сортировать ComboBox2 согласно выбранному ComboBox1

← →
Stilgar (2004-01-26 23:59) [1]

свойство Text

← →
Builder (2004-01-27 00:01) [2]

Но сортировка должна начатьтся после выбора item"a

← →
MadGhost (2004-01-27 00:02) [3]

procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.Text="1" then begin Combobox2.Items.Add("blya-blya"); Combobox2.Items.Add("blya-blya"); Combobox2.Items.Add("blya-blya"); //и т.д. end; end;

← →
Builder (2004-01-27 00:11) [4]

пардон не работает ((

← →
Builder (2004-01-27 00:13) [5]

может я процедуру неправильно обявил?
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text="12" then
begin
Combobox2.Items.Add("132424");
Combobox2.Items.Add("adflya");
Combobox2.Items.Add("12");

end;
if ComboBox1.Text="123" then
begin
Combobox2.Items.Add("1424");
Combobox2.Items.Add("aya");
Combobox2.Items.Add("1");

end;
end;

← →
Германн (2004-01-27 01:05) [6]

Че-то очень много слов о "сортировке", а никакой сортировки не видно.
Если нужно менять содержимое CB2 по выбору в CB1, то во-первых перед добавлением строк в 2 нужно снала его очистить. А во-вторых, если в CB1 статичный список, то лучше использовать не событие OnChange, а OnSelect.

← →
MadGhost (2004-01-28 14:53) [7]

> Builder (27.01.04 00:13) [5]
для того чтобы она заработала надо чтобы возникло такое событие которое ты описал, т.е. произошло изменение в ComboBox1

TComboBox Найти похожие ветки