Нужен PaintBox, который умеет кнопки получать. Вот, списал из инета. Вроде как бы работает, но на стрелки не реагирует. Что нужно тут подправить, чтобы стрелки тоже ловил? [Code] unit KeyPaintbox; // http://www.jjask.com/155766/delphi-paintbox-without-key-events interface uses Windows, Classes, Messages, Controls; type TKeyPaintBox = class(TCustomControl) private FOnPaint: TNotifyEvent; protected procedure Paint; override; procedure MouseDown(Button: ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83193