Очередная загвостка. Не могу своему компоненту ( создан на основе TCustomControl ) дать событие KeyDown и KeyPress
просто обяъвить его
не получается
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;
но как его заставить теперь появится в инспекторе?