[Avulso]

I solved this with begin code:

Code:

if ((key = vk_up) or (key = vk_down)) then begin
key := 0;
sDBGrid3.SetFocus;
end;

Thank's everyone. 🙄

[Avulso]

My keydown action:

Code:

procedure TFormCadProdutos.sComboEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key = vk_up) or (key = vk_down)) then
sDBGrid3.SetFocus;
else if (key = VK_ESCAPE) then begin
sEdit19.Clear;
sComboEdit1.Clear;
end;
end;

The VK_ESCAPE is ok, the problem is on set focus where arrow up or down pressed, but this action not set focus, i need to set manually.

Examples

sComboEdit focused;

sDBGrid focused;

[Author]

Posts