Virtual-Key Codes

Question

Dzień dobry,

mam problem z Virtual-Key Codes. Mam taki skrypt:

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
       if(Key=='1')
       {
          Label5->Caption="tekst";
       }
}

Nie pokazuję mi się ten tekst w Label5

Z góry dziękuję

Answer 1

Prawdopodobnie masz jakąś aktywną kontrolke(z ustawionym focusem) wtedy eventy idą do niej a nie do formy.
Najłatwiej zdeaktywować aktywne kontrolki tak.

Form1->ActiveControl = NULL;