ComboBox Text beim zuklappen beeinflussen

[Minz]

wenn das mit copy wie M.O.D sagt funktioniert ist das natürlich einfacher, aber hier mal das, was ich dir geschrieben habe:

funktioniert ebenfalls ohne probs. Musst allerdings im Objektinspektor bei Items auch noch 4 Zeilen reinschreiben, damit dieses Beispiel funktioniert!

Delphi-Quellcode:

var
  array1: array[0..3] of string;
  array2: array[0..3] of string;
implementation
procedure TForm1.ComboBox1Change(Sender: TObject);
var index: integer;
begin
  with Combobox1 do begin
       index:=ItemIndex;
       items[Index]:=array1[index];
       ItemIndex:=index;
  end;
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var index: integer;
begin
  with Combobox1 do begin
       index:=ItemIndex;
       items[index]:=array2[index];
       ItemIndex:=index;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.ItemIndex:=0;
end;

initialization
array1[0]:='null';
array1[1]:='eins';
array1[2]:='zwei';
array1[3]:='drei';
array2[0]:='null null';
array2[1]:='eins eins';
array2[2]:='zwei zwei';
array2[3]:='drei zwei';