BorlandTalk.com

Shachar · Guest

Hallo,

Please help me with the following:
I had a problem with arrows and tab keys in Delphi TActiveForm. Those
keys where ignored by the form. The following solution solves all the
problems, but unfortunately introduces new ones. The following keys are
now ignored: !#$%&*(
The keys @^) and all the rest are still working.

The solution is implemented by overriding the WndProc procedure in a
TActiveForm descendant.

class function TCOMFunctions.OCXKeyEvent(var Message: TMessage):
boolean;
{
in WndProc override of a TActiveForm:;
procedure TMyAcitveForm.WndProc(var Message: TMessage); override;
begin
if not TCOMFunctions.OCXKeyEvent(Message) then
inherited;
end;

}
var
msg: TMsg;
begin
result := true;
case Message.Msg of
WM_GETDLGCODE:
begin
Message.Result := DLGC_WANTTAB or DLGC_WANTARROWS or
DLGC_WANTALLKEYS;
//Message.Result := 0; would handle "!#$%&*(" good but will
ignore the arrows and tabs
end;
WM_KEYDOWN:
begin
if Message.WParam in
[
VK_LEFT,
VK_RIGHT,
VK_UP,
VK_DOWN,
VK_TAB,
VK_HOME,
VK_END,
VK_INSERT
]
then
begin
msg.hwnd := GetFocus;
msg.message := Message.Msg;
Msg.WParam := Message.WParam;
Msg.LParam := Message.LParam;
Msg.time := 0;
Msg.pt := point(0,0);
DispatchMessage(msg);
end;
end
else
result := false;
end;
end;

Thanks, Shachar Nemirovsky.

Riki Wiki · Guest

On 23 May 2006 06:26:44 -0700, Shachar wrote: