ComboBox wyrzucanie LabeledEdit

0

Drodzy forumowicze mam następujący problem z programem Delphi. Otóż mam w ComboBox trzy funkcje matematyczne. Chciałbym żeby po wybraniu pierwszej funkcji z ComboBoxa wyświetlał mi się na ekranie tylko LabeledEdit1, jak wybiorę druga funkcję żeby wyświetlił mi się LabeledEdit1 i LabeledEdit2 a jeżeli wybiorę trzecią funkcję to chciałbym żeby na ekranie pojawiło się LabeledEdit1 , LabeledEdit2 i LabeledEdit3. Prosiłbym o wyrozumiałość bo dopiero stawiam pierwsze kroki w tym programie. Wrzucam mój kod. Z góry dziękuję wszystkim za pomoc.

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if Combobox1.ItemIndex=1 then
  LabeledEdit1.Show;
 if Combobox1.ItemIndex=2 then
  LabeledEdit1.Show;
  LabeledEdit2.Show;
 if Combobox1.ItemIndex=3 then
  LabeledEdit1.Show;
  LabeledEdit2.Show;
  LabeledEdit3.Show;
end;
1

Po pierwsze: itemy ComboBoxa, jak i wszystkie typy TStrings są idenksowane od zera. Po drugie: LabeledEdit posiadają wlasność Visible. Mają one wprawdzie też własność Show, ale chcesz zmieniać chyba ich widocznośc, wtedy naturalnym posunięciem jest zmiana Visible, jak przy niemal wszystkich wizualnych komponentach. Po trzecie: pytania o takie banalne podstawy, zadaje się w dziale Newbie! I tam przenoszę ten wątek. A przykład kodu poniżej. I tak - wiem, miało nie być gotowców, ale to tak krótki kod, że chyba podanie jego nie zaszkodzi. Chyba, że autor wątku nic z niego nie wyniesie i zaczną sie kolejne banalne pytania, a wtedy już ostatecznie zaprzepaści szanse przyszłościowych leni na otrzymanie ode mnie chociaż krótkiego gotowego kodu.

procedure TForm1.ComboBox1Change(Sender : TObject);
var
  Combo : TComboBox;
begin
  Combo := TComboBox(Sender);
  LabeledEdit1.Visible := Combo.ItemIndex >= 0;
  LabeledEdit2.Visible := Combo.ItemIndex >= 1;
  LabeledEdit3.Visible := Combo.ItemIndex = 2;
end;
0

LabeledEdit1.Visible:=(Combobox1.ItemIndex>=1);
LabeledEdit2.Visible:=(Combobox1.ItemIndex>=2);
LabeledEdit3.Visible:=(Combobox1.ItemIndex>=3);

0

Dzięki wielkie za pomoc i przepraszam że nie w tym dziale.

1 użytkowników online, w tym zalogowanych: 0, gości: 1