Como desabilitar tecla escolhida no combobox

Question

Ol� pessoal, estou h� um bom tempo procurando a solu��o mas n�o encontro, a minha d�vida � a seguinte: Preciso desabilitar algumas teclas atrav�s da escolha do usu�rio pelo combobox. Sei que posso uti...

Ricardo · Answer

Tem que colocar a instru��o no evento OnkeyDown ou OnKeyPress e VK_CLEAR := 0, voc� colocou VK_CLEAR = 0....

Keisse Brandao · Answer

Mas Ricardo, o usu�rio n�o vai pressionar a tecla, ele s� vai escolher no combobox... Mesmo fazendo assim como vc falou n�o d� certo, pois aparece a mensagem de erro, The left side cannot be assigned to...

Keisse Brandao · Answer

Tenho que adicionar alguma biblioteca?...

Thiago Irrazabal · Answer

Boa noite, veja se isso resolve teu problema... primeiramente no teu formul�rio deixe o KeyPreview como TRUE, depois declare essa v�riavel no private do teu formul�rio

vKey: Word;

Sem seguida declare essa procedure aqui no private tamb�m:

procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

CTRL + SHIFT + C para criar e coloque esse c�digo dentro:

if Key = vKey then
    Key := 0;

Aqui tu pode fazer outras coisas como mostrar a mensagem quando a tecla for pressionada e dizer que ela est� "inativa"...

Agora no OnChange do teu ComboBox tu coloca o seguinte c�digo:

  case ComboBox1.ItemIndex of
    0: vKey := VK_F1;
    1: vKey := VK_F2;
    2: vKey := VK_F3;
    3: vKey := VK_F4;
    4: vKey := VK_F5;
    5: vKey := VK_F6;
  end;

  TForm(Form1).OnKeyDown := KeyDown;

Onde Form1 tu substitui pelo nome do teu formul�rio, e o case do itemindex tu substitui pelas teclas que tu colocou nos items do combobox, espero que ajude.

Att,
Thiago Irrazabal de Oliveira.

F�rum Como desabilitar tecla escolhida no combobox #484172