🚀 go-pugleaf

Since neither events detect the automatic repeats, it wouldn't change a
thing, but thank you for your suggestion.

Chris.

"Steve_Aletto" <steve_alettoANTI@SPAMhotmail.com> wrote in message
news:3ef6ed5e$1@newsgroups.borland.com...
> Chris <Chris8852@adelphia.net> wrote in message
> 3ef600fe$1@newsgroups.borland.com...
> > I need to retrieve the OnKeyPress event for the arrow keys
> in TStringGrid.
> > OnKeyUp and Down won't work because it doesn't detect the
> automatic
> > repeating.
>
> Could the following be a solution (or at least a suggestion,
> only the down key is handled)?
>
> bool DownArrowPressed = false;
>
> void __fastcall TForm1::StringGrid1KeyDown(TObject *Sender,
> WORD &Key,
>    TShiftState Shift)
> {
>  if ((Key == VK_DOWN) && (!DownArrowPressed))
>  {
>   DownArrowPressed = true;
>   /* do something */
>  }
> }
>
> void __fastcall TForm1::StringGrid1KeyUp(TObject *Sender,
> WORD &Key,
>    TShiftState Shift)
> {
>  if (Key == VK_DOWN) DownArrowPressed = false;
> }
>
> Steve.
>
>