[SOLVED] virtual keyboard between forms

[m.dj]

Hi ,

I'm trying to add virtual keyboard to my application
so i used MouseAndKeyInput ,
the problem is i couldn't get it to work between the forms ( if the editable controls not in same form as the keyboard)

Simple project attached
Thanks

[typo]

Code: [Select]

procedure TFormKeyboard.FormKeyPress(Sender: TObject; var Key: char);
begin
  case Key of
  'A': begin
         Form1.Memo1.SetFocus;
         Form1.Memo1.SelText := 'A';
         FormKeyboard.BringToFront;
       end;
end; 


[taazz]

here is a quick take on the subject. Keep in mind that the modifications are windows only. I have no idea how to do the same on other systems.

There is the possibility that you can do the same thing if you save the handle given on the wmsetFocus method and make it active inside the simplekeyClick, SpecialKeyClick or the PressVirtKey method. I would try the simple/special keyclick first which allows the application to handle its messages before the keys are send.

[m.dj]

Hi ,
Thanks for the replays   

Keep in mind that the modifications are windows only

that's what i want (for now) , and it is working ;you saved me a lot of time thanks

Can i get the focused control before FormKeyboard showed ? thanks ;

[taazz]

Why? I see no point in knowing that but you already have code that is executed when a control is clicked (for example) you have there the sender which should be the control that was clicked and if that is not enough (if you are using an action for example) you can use the Screen.FocusedForm.ActiveControl to get which control was last active.

[m.dj]

I'm trying to rebuild the virtual keyboard without using MouseAndKeyInput 
Thanks