Combobox

@Yukmale · Регистрация: 07.03.2010

Author24 — интернет-сервис помощи студентам

Как сделать чтобы при выборе одного из всплывающих списков "Combobox" становились видимыми определенные кнопки "Button"?

@Zerkalka · 10.03.2010, 11:00

как-то так...

Pascal

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0:  begin
        Button1.Visible:=true;
        Button2.Visible:=true;
        Button3.Visible:=false;
        Button4.Visible:=false;
        Button5.Visible:=false;
    end;
    1:  begin
        Button1.Visible:=false;
        Button2.Visible:=false;
        Button3.Visible:=true;
        Button4.Visible:=true;
        Button5.Visible:=false;
    end;
    2:  begin
        Button1.Visible:=false;
        Button2.Visible:=false;
        Button3.Visible:=false;
        Button4.Visible:=false;
        Button5.Visible:=true;
    end;
  end;
end;

@Yukmale 0 / 0 / 0 Регистрация: 07.03.2010 Сообщений: 3
		1
	Combobox 10.03.2010, 10:53. Показов 808. Ответов 1 Метки нет (Все метки) Как сделать чтобы при выборе одного из всплывающих списков "Combobox" становились видимыми определенные кнопки "Button"? 0

	10.03.2010, 11:00