Button überspringt OnKeyDown bei VK_Up / VK_Down

[angos]

Hi,

Hilft dir die Routine OnEnter weiter?:

Delphi-Quellcode:

procedure TForm1.Button1Enter(Sender: TObject);
begin
  if Sender = Button1 then 
    Panel1.Visible := True;
end;