问题: 怎样在以控件中添加自己需要的触发事件啊？50分送上～～～～～ ( 积分: 48 )
分类: 控件 - 开发
来自: tanglei038, 时间: 2005-04-05 14:47:00, ID: 3031406
比如在TButton的Event中就没有OnKeyPress事件，我需要这个事件来处理一些问题。
请教大侠们：怎样把这个消息事件添加进去并公布出来啊 ？？
（不知我所说的你们听懂没有，就是使OnKeyPress在控件的Event中出现，双击它就能对KeyPress事件进行处理）
来自: hongxing_dl, 时间: 2005-04-05 15:07:53, ID: 3031461
自己从 这个组件上继承一个新的组件：比如从TButton继承(但是我这里TButton有KeyPress事件的哦：）)
type
TMyButton = class(TControl)
private
FKeyPress: TKeyPressEvent;
protected
procedure WMKeyPress(var msg:TWMChar);message WM_CHAR;
published
property OnKeyPress: TKeyPress read FKeyPress write FKeyPress;
end;
procedure TMyButton.WMKeyPress(var msg:TWMChar);
begin
if Assigned(FKeyPress) then
FKeyPress(Self, msg.CharCode);
inherited;
end;
来自: someset, 时间: 2005-04-05 15:10:45, ID: 3031468
怎么会没有OnKeyPress？会不会弄错了
来自: tanglei038, 时间: 2005-04-05 15:11:28, ID: 3031472
多谢hongxing_dl，我试试！！！
来自: tanglei038, 时间: 2005-04-05 15:14:11, ID: 3031483
我只是举的例，在软件开发中这类问题可能随时都会发现。
我要的是这个方法，，谢谢关心！！！
得分大富翁: hongxing_dl
