Combobox

Prøv med F1 ( Online hjælp )

Du indtaster bare Lines som valgmulighederne
Og Text er det det der står i den...

Indsæt items

ComboBox1.Clear; // sletter alle
ComboBox1.Items.Add('1');
ComboBox1.Items.Add('2');

var
  idx : integer;
..
  idx := ComboBox1.ItemIndex;

Så er du igang... herefter skal du gøre hvad martinlind foreslog :-)

Når du 'skal tjekke hvad den står på', og hvis der er mange valgmuligheder, så prøv med en case of:

  case ComboBox1.ItemIndex of
    0: begin
        showmessage('Du har valgt at sige hyp!');
      end;
    1: begin
        showmessage('Ahaaa!');
      end;
    2: begin
        showmessage('Linje 3!');
      end;
  end;

skriv dette i din form's OnCreate event...

procedure TForm1.FormCreate(Sender: TObject);
begin
  with combobox1 do
  begin
    clear;
    items.add('Linje 1');
    items.add('Linje 2');
    items.add('Linje 3');
  end;
end;

og dette i din combobox's OnChange event...

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with combobox1 do
  showmessage(items[itemindex]);
end;

Når du kompiler, og vælger fra din combobox, vil der poppe en dialogbox op på skærmen, og fortæller hvliken item, du havde valgt!

Held og Lykke

ZeroHero

men hvordan vælger jeg hvilken værdi, der skal være default?

skriv dette i din form's OnCreate event...
//Nu vil mummer 1 i din combobox blive default!!!

combobox1.itemindex := 0;