Скачать: CL | DM;

Перехват сообщения от клавы   Найти похожие ветки 

← →
Max4   (2006-06-16 12:01) [0]

Есть класс от TCustomControl;

при выполнении не приходит в процедуру -
procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

пытаюсь прописать даже
procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;
тот же результат.

класс создаю в форме1. у формы стоит кей привью.

 
if not Assigned(FView) then
 begin
   FView := TView.Create(Self);
   with FView do
   begin
     Align := alClient;
     Parent := TWinControl(Self);
   end;
 end;

Где грабли ? что пропустил ?

---

← →
Dimka Maslov ©   (2006-06-16 13:17) [1]

FView.OnKeyDown := KeyDown наверное пропущено

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.027 c