OnKeyDown in Delphi 5 and 6 Pro isn't working on my system
I created a form. Set its style to fsMDIForm.
I set the keypreview property to true;
I placed a Statusbar on the form with 6 panels (CAP, Capstatus, NumbLock, NumbLockStatus, Insert, InsStatus)
I placed a ActionList on the form and created a custom action item (Action1). This item will check the status of the keyboard and will change the CapStatus, NumbLockStatus, and InsStatus to either on or off.
When the form is created Action1 is executed and everything works as it should.
But...When I press on the Keyboard key Caps Lock....nothing happens. The OnKeyDown event is Action1.Execute;
I have also tried this code in the OnKeyDown Event just to see if any code will work:
procedure TMainForm.FormKeyDown(Send
Shift: TShiftState);
begin
if (shift = ([ssalt])) then showMessage('This Works');
end;
Still...Nothing.
Any ideas?
BTW - If I put a timer component on the form and have it fire Action1.Execute (every 1000 ms) it picks up the change to the keyboard state when I change it.
I have tried this in both D5 and D6.
I set the keypreview property to true;
I placed a Statusbar on the form with 6 panels (CAP, Capstatus, NumbLock, NumbLockStatus, Insert, InsStatus)
I placed a ActionList on the form and created a custom action item (Action1). This item will check the status of the keyboard and will change the CapStatus, NumbLockStatus, and InsStatus to either on or off.
When the form is created Action1 is executed and everything works as it should.
But...When I press on the Keyboard key Caps Lock....nothing happens. The OnKeyDown event is Action1.Execute;
I have also tried this code in the OnKeyDown Event just to see if any code will work:
procedure TMainForm.FormKeyDown(Send
Shift: TShiftState);
begin
if (shift = ([ssalt])) then showMessage('This Works');
end;
Still...Nothing.
Any ideas?
BTW - If I put a timer component on the form and have it fire Action1.Execute (every 1000 ms) it picks up the change to the keyboard state when I change it.
I have tried this in both D5 and D6.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
I think is has something to do with it being an MDI app. If the focused control is in the MDI parent then the OnKeyDown event for the MDI child won't fire. Try setting focus to a control in the MDI form and then testing it.
Let me know what happens.
Jo
Sorry about the double post. I've also re-read your question and realised that the problem is the other way around to what I had originally thought. ie : The MDI Parent has the OnKeyDown event but the MDIChild has focus.
One possible workaround (not elegant but it works) is to declare a class of TCustomForm in your MDI child. You can then typecast Application.MainForm to this class and gain access to the protected methods, one of which is KeyDown.
eg :
type
TRedeclareForm = class(TCustomForm);
procedure TForm2.FormKeyDown(Sender:
Shift: TShiftState);
begin
TRedeclareForm(Application
end;
Jo
ASKER
I'm going to accept both your answer and nbbb09's answer.
I created a child form.
I put a command in the Mainform.OnCreate to set focus on the StatusBar1.
I put a command in the OnMouseMove event to trigger Action1 and the status bar started working .
Thanks for both of your help.
I created a child form.
I put a command in the Mainform.OnCreate to set focus on the StatusBar1.
I put a command in the OnMouseMove event to trigger Action1 and the status bar started working .
Thanks for both of your help.
Thanks, gemarti, good luck!
-felonious
-felonious
I think is has something to do with it being an MDI app. If the focused control is in the MDI parent then the OnKeyDown event for the MDI child won't fire. Try setting focus to a control in the MDI form and then testing it.
Let me know what happens.
Jo