Перехват сообщения от клавы [D7, WinXP]
Max4 © (2006-06-16 12:01:00)
Есть класс от 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:00) [1]
FView.OnKeyDown := KeyDown наверное пропущено
Наверх 
ЧАТ |
Орешник |
|
