Показать сообщение отдельно
  #29  
Старый 08.12.2011, 15:08
Fox Mulder Fox Mulder вне форума
Прохожий
 
Регистрация: 19.01.2011
Сообщения: 16
Репутация: 10
По умолчанию

Очередная загвостка. Не могу своему компоненту ( создан на основе TCustomControl ) дать событие KeyDown и KeyPress
просто обяъвить его
Код:
property OnKeyDown;
не получается

UPD:
отлично, коечто сделал:
Код:
protected
    procedure KeyDown(var Msg : TMessage); message WM_KeyDown;
    procedure KeyUp(var Msg : TMessage); message WM_KeyUp;

published
    property OnKeyDown;
    property OnKeyUp;

procedure TTexXEditor.KeyDown(var Msg : TMessage);
begin
if Msg.WParam = 17 then begin
 ctrlpress:=True;
end;
end;

procedure TTexXEditor.KeyUp(var Msg : TMessage);
begin
if Msg.WParam=17 then begin
 ctrlpress:=False;
end;

end;

но как его заставить теперь появится в инспекторе?
Ответить с цитированием