combobox içinde yukarı ve aşağıya gitme

[brs]

Selam Arkadaşlar maskedit enter bastığımda combobox otomatik açılıyor setfocus yapıyorum fakat cobobok içinde yukarı ve aşağıya ok yönleri işe yaramıyor acaba hata nerede yapıyorum

Kod: Tümünü seç

procedure TForm8.MaskEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) then
  begin
    ComboBox1.Perform(WM_KEYDOWN, VK_F4, 0); // --->>>Otomatik Açılım
    ComboBox1.Perform(WM_KEYUP, VK_F4, 0);
  end;
end;

Kod: Tümünü seç

procedure TForm8.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DOWN then
    ComboBox1.ItemIndex := +1;
  if Key = VK_UP then
    ComboBox1.ItemIndex := -1;
end;

[xozcanx]

Kod: Tümünü seç

procedure TForm8.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DOWN then
    ComboBox1.ItemIndex :=ComboBox1.ItemIndex +1;
  if Key = VK_UP then
    ComboBox1.ItemIndex :=ComboBox1.ItemIndex -1;
end;

Merhaba bu şekilde yukarı aşağı gitmesi lazım.

[brs]

xozcanx Teşekkür ederim fakat olmadı normal olarak cobomBox tıkladğımda sorun yok yukarı ve aşğıya ilerliyor fakat enter ile geçiş yaptığımda değişen bir şey olmuyor

[xozcanx]

Ben mi demek istediğinizi yanlış algıladım acaba, altta bulunan örnege bakabilirmisiniz

http://www.dosya.tc/server32/GuPGVk/maskedit.rar.html

[mrmarman]

Kod: Tümünü seç

procedure TForm8.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DOWN then
    ComboBox1.ItemIndex := +1;
  if Key = VK_UP then
    ComboBox1.ItemIndex := -1;
end;

Sanki burada

Kod: Tümünü seç

    ComboBox1.ItemIndex := +1;
    ComboBox1.ItemIndex := -1;

derken

Kod: Tümünü seç

    ComboBox1.ItemIndex := ComboBox1.ItemIndex +1;
    ComboBox1.ItemIndex := ComboBox1.ItemIndex -1;

demek istemişsiniz de unutulmuş gibi geliyor.