箭头键在组件中不起作用
|
我使用Gecko SDK，该组件可让您查看网页。
我使用此组件来创建html编辑器。
关闭编辑网页时会发生此问题。
问题是箭头键和选项卡不适用于我的组件。我试图找到这个问题的答案，但是没有找到答案。我在这里找到了一个曲目，但是该功能不起作用。
功能“ 0”不存在。感谢您帮助我解决此问题。
Procedure Tform1.TraiteMessages(Var msg : TMsg; Var Handled: boolean);
var
dx, dy : integer;
begin dx: 0; dy := 0;
With msg do
begin
IF Message = WM_KEYDOWN then
Case wparam of
VK_LEFT : dx := -1;
VK_RIGHT : dx := 1;
VK_UP : dy := -1;
VK_DOWN : dy := 1;
end;
end;
IF (dy = 0) AND (Dx = 0) then Handled := false else
begin
handled := true; // message traité
Mouvement(dx, dy) // exécution du tracé
end;
end;
没有找到相关结果
已邀请:
3 个回复
屠创氓读叔
然后在实施部分中：procedure TComponentClass.HandleDlgCode(var Msg:TMessage); var M: PMsg; begin Msg.Result := DLGC_WANTALLKEYS or DLGC_WANTARROWS or DLGC_WANTCHARS or DLGC_HASSETSEL; if Msg.lParam <> 0 then begin M := PMsg(Msg.lParam); case M.message of WM_KEYDOWN, WM_KEYUP, WM_CHAR: begin Perform(M.message, M.wParam, M.lParam); Msg.Result := Msg.Result or DLGC_WANTMESSAGE; end; end; end else Msg.Result := Msg.Result or DLGC_WANTMESSAGE; end;末钉蹈泰唬
interface type TMyComponent = class(TMemo) // ^^^^^^^^^^^^^^^^^^^^<<- use this as your parent class protected procedure KeyPress(var Key: Char); override ... implementation procedure TMyComponent.KeyPress(var Key: Char); begin inherited; //it works just like this, TMemo does everything. end;淑灯
Procedure Tform1.TraiteMessages(Var msg : TMsg; Var Handled: boolean); var dx, dy : integer; begin dx := 0; dy := 0; With msg do begin IF Message = WM_KEYDOWN then begin Case wparam of VK_LEFT : dx := -1; VK_RIGHT : dx := 1; VK_UP : dy := -1; VK_DOWN : dy := 1; end; end; end; Mouvement(dx, dy); Handled := ((dy <> 0) or (dx <> 0)); end;