Key in ComboBox

[thomas2009]

Nun funktioniert :

Delphi-Quellcode:

//...
             if Combobox1.Items[Combobox1.ItemIndex] = 'F1' then begin key := vk_F1; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F2' then begin key := vk_F2; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F3' then begin key := vk_F3; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F4' then begin key := vk_F4; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F5' then begin key := vk_F5; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F6' then begin key := vk_F6; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F7' then begin key := vk_F7; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F8' then begin key := vk_F8; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F9' then begin key := vk_F9; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F10' then begin key := vk_F10; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F11' then begin key := vk_F11; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F12' then begin key := vk_F12; end

        else if Combobox1.Items[Combobox1.ItemIndex] = 'RETURN' then begin key := VK_RETURN; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'SPACE' then begin key := VK_SPACE; end
// ...
        else if Combobox1.ItemIndex < 35 then begin

          key := Ord(Combobox1.Items[Combobox1.ItemIndex][1]); end;