помогите разобраться с ComboBox'ом

[Rebel123]

Помогите пожалуйста разобраться вот с этим:
Если ComboBox не проверен, то тогда на клике на Label выходит ошибка! а если наоборот проверено то тогда вуаля))
Только вот надо именно в Itemse выбрать какую нибудь строку. А cheked такого там нету! как быть???

[Вавел из ГМТУ]

Что есть проверить? ибо непонятно...

Есть свойсвто чтото типа SelectItems...

адд: сори. Если надо считать текущее значение с КомбоБокса, то это: ComboBox1.Text

[Пепел Феникса]

вообще то можно смотреть выбрать какойнить итем или нет(сейчас не вспомню св-во)

[uberchel]

Как я понял, надо проверить есть ли какой нибуть текст в ComboBox или нет ? то так:

if ComboBox1.text = '' then
Label1.Caption:= 'В КомбоБоксе нечего не выбрано !' 
else begin
//Вашь код 
end;

[Kotofff]

Если в Combo ничего не выбрано, то его текст будет пустым, как uberchel и сказал, и свойство ItemIndex будет равно -1

[Rebel123]

Спасибо большое, только у меня ошибка будет выходить в виде формы))) а так все смекнул спс!

Вот мне именно в этом клике надо написать код, но выходит из за условия if если не ошибаюсь, помогите плиз что тут делать?

procedure TForm4.Label3Click(Sender: TObject);
begin
if A=1 then
 begin
   A:=2;
Label3.Caption:='Отключить';
Label2.Caption:='Включен';
Image5.Visible:=False;
Image9.Visible:=True;
end
else
if A=2 then
begin
A:=1;
Label3.Caption:='Включить';
Label2.Caption:='Отключен';
Image5.Visible:=True;
Image9.Visible:=False;
end;
end;

[Stilet]

Я бы так написал:

procedure TForm4.Label3Click(Sender: TObject);
begin
Image5.Visible:=A<>1;
Image9.Visible:=A=1;
case A of
1:begin
  A:=2;
  Label3.Caption:='Отключить';
  Label2.Caption:='Включен';
end;
2:begin
 A:=1;
 Label3.Caption:='Включить';
 Label2.Caption:='Отключен';
end;
end;

Или еще прикольнее:

procedure TForm4.Label3Click(Sender: TObject);
const aga:array[0..1] of string=('Отключить','Включен');
begin
  Image5.Visible:=A<>1;
  Image9.Visible:=A=1;
  Label3.Caption:=aga[byte(a=1)];
  Label2.Caption:=aga[byte(a=2)];
  case A of
   1:A:=2;
   2:A:=1;
  end;
end;

[Rebel123]

Сообщение от uberchel

Как я понял, надо проверить есть ли какой нибуть текст в ComboBox или нет ? то так:

if ComboBox1.text = '' then
Label1.Caption:= 'В КомбоБоксе нечего не выбрано !' 
else begin
//Вашь код 
end;

спасибо! все работает на ура, только вот как этот код запихать вот сюда?:

procedure TForm4.Label3Click(Sender: TObject);
begin
if A=1 then
 begin
   A:=2;
Label3.Caption:='Отключить';
Label2.Caption:='Включен';
Image5.Visible:=False;
Image9.Visible:=True;
end
else
if A=2 then
begin
A:=1;
Label3.Caption:='Включить';
Label2.Caption:='Отключен';
Image5.Visible:=True;
Image9.Visible:=False;
end;
end;

[Kotofff]

все работает на ура

Может все и работает, НО(!) если в комбобокс ввести вручную текст (т.к. он это позволяет), то этот код сработает не корректно, т.к. в комбо ничего не выбрано, но ведь он не пустой ...

[Rebel123]

Сообщение от Kotofff

Может все и работает, НО(!) если в комбобокс ввести вручную текст (т.к. он это позволяет), то этот код сработает не корректно, т.к. в комбо ничего не выбрано, но ведь он не пустой ...

Тогда надо написать: если юзер водит вручную что ему вздумается, то тогда выходит ошибка с формой и надписью ''такое выбрать невозможно'' или что-то в этом роде)
Вы лучше подскажите как в тот код написать, а то там стока всего что просто ошибка в строке(((