Virtuelle Tastatur ohne Focus

[hathor]

Ich habe gerade einen Artikel in CODEPROJECT vor mir - Titel:
Original Virtual PiliKeyboard with Prompt Feature. Samsung R-Series laptop keyboard
- da wird einfach nach dem Klicken der Window-Focus (CWinApi.SetForegroundWindow(hWndTarget) geändert:

Code:

// setting active target window
            if (hWndTarget.ToInt32() != 0)
            {
                CWinApi.SetForegroundWindow(hWndTarget);

                // waiting up to the moment when target window will be on top
                System.Threading.Thread.Sleep(20);
            }

[mcbain]

Wenn ich das bspw. so mache:

Code:

procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);   //Form3 ist die Form auf dem das Keyboard liegt
begin
   Form2.edit1.SetFocus;
end;

Dann blinkt Form2 und Form3 bloß kurz auf, aber er schreibt nicht in edit1.
Dafür muss es doch eine elegante Lösung geben oder? Das aufblinken ist nämlich auch nicht so schön. Es funktioniert ja auch, wenn es in einer eigenen Anwendung aufgerufen wird...

Hat noch jemand einen Tip evtl.?

[Bummi]

Ich habe gerade keinen Zugriff auf meine Sourcen, als QuickHack könnte ich mir folgendes vorstellen.
Annahme das Fenster mit der virtuellen Tastatur bildet die Tasten über ein/mehrer Images oder Speedbutton o.ä. ab.

Delphi-Quellcode:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
   With Form2 do
    begin
      width := 300;
      height := 200;
      Left := TWincontrol(Sender).Left + TWincontrol(Sender).Width;
      Top := TWincontrol(Sender).Top;
      Parent := Self;
      Show;
    end;
end;

der Tastaturcode nur testweise

Delphi-Quellcode:

procedure SendKeys(sText: String);

var
 i             : Integer;
 shift         : Boolean;
 vk, scancode   : Word;
 ch            : Char;
 c, s          : Byte;
const
 vk_keys       : Array[0..9] of Byte=(VK_HOME, VK_END, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT, VK_PRIOR, VK_NEXT, VK_INSERT, VK_DELETE);
 vk_shft       : Array[0..2] of Byte=(VK_SHIFT, VK_CONTROL, VK_MENU);
 flags         : Array[FALSE..TRUE] of Integer = (KEYEVENTF_KEYUP, 0);
 C_ALTGRS = ['\','@','~','²','³','€','{','}','[',']'];

begin
 shift:=FALSE;
 for i:=1 to Length(sText) do begin
   ch:=sText[i];
     if (ch>=#250) then begin
     s:=Ord(ch)-250;
     shift:=NOT Odd(s);
     c:=vk_shft[s shr 1];
     scancode:=MapVirtualKey(c, 0);
     Keybd_Event(c, scancode, flags[shift], 0);
   end else begin
     vk:=0;
     if (ch>=#240) then
       c:=vk_keys[Ord(ch)-240]
     else if (ch>=#228) then
       c:=Ord(ch)-116
     else if (ch<#32) then
       c:=Ord(ch)
     else begin
       vk:=VkKeyScan(ch);
       c:=LoByte(vk);
     end;

     scancode:=MapVirtualKey(c, 0);

     if (sText[i] in C_AltGRS) then Keybd_Event(VK_RMENU, MapVirtualKey(VK_RMENU,0), 0, 0)
     else if (NOT shift AND (Hi(vk)>0)) then Keybd_Event(VK_SHIFT, $2A, 0, 0 );
     Keybd_Event( c, scancode, 0, 0 );
     Keybd_Event( c, scancode, KEYEVENTF_KEYUP, 0 );
     if (sText[i] in C_AltGRS) then Keybd_Event(VK_RMENU,MapVirtualKey(VK_RMENU,0), KEYEVENTF_KEYUP, 0)
     else if (NOT shift AND (Hi(vk)>0)) then Keybd_Event(VK_SHIFT, $2A, KEYEVENTF_KEYUP, 0);

   end;
   Application.ProcessMessages;
 end;
end;


procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   SendKeys('Test');
end;

Oder alternativ eine Prozedur in die virtuelle Tastatur einbauen, der das Wincontrol übergeben wird.
Dort alles Merken (Parent/Fontsize/Left/Top/aling/Ancors etc...)
Dann dem Control ein Panel auf der Tastatur als Parent zuweisen, ausrichten etc. und anzeigen , im Close alles wieder herstellen.

[divBy0]

Probiers mal so:

Delphi-Quellcode:

SetWindowLong(handle, GWL_EXSTYLE,GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_NOACTIVATE);
  SetWindowPos(self.Handle, HWND_NOTOPMOST + WORD(true), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);

[mcbain]

@Bummi
Das ist sehr ausführlich, vielen Dank. Aber ich denke das ganze muss wesentlich einfacher zu realisieren sein, da es ja in einer externen Anwendung genau so funktioniert wie ich möchte. Ich will halt nur nicht immer ne externe Anwendung aufrufen müssen.

@divBy0
Ich hab es so eingebaut:

Code:

procedure TForm2.btn1Click(Sender: TObject);
begin
  form3 := TForm3.Create(Application);
  SetWindowLong(form3.handle, GWL_EXSTYLE,GetWindowLong(form3.handle, GWL_EXSTYLE) or WS_EX_NOACTIVATE);
  SetWindowPos(form3.Handle, HWND_NOTOPMOST + WORD(true), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
  form3.Visible := true;

end;

Aber am Verhalten hat sich nix geändert...

[Uwe Raabe]

Zitat von mcbain:

Aber ich denke das ganze muss wesentlich einfacher zu realisieren sein, da es ja in einer externen Anwendung genau so funktioniert wie ich möchte. Ich will halt nur nicht immer ne externe Anwendung aufrufen müssen.

Es ist aber halt doch ein Unterschied, ob eine externe Anwendung aktiviert wird (oder eben auch nicht), oder ob ein anderes Form der aktiven Anwendung den Fokus erhält. Manchmal ist das, was einfach erscheint, doch eben nicht so einfach zu realisieren - wenn es denn überhaupt geht. Es ist sehr wohl möglich, daß die mitgelieferte Bildschirmtastatur in diesem Fall für deine Zwecke nicht geeignet ist.

[ConnorMcLeod]

Immer, wenn eine Eingabemaske den Fokus bekommt, kann man sich im VirtuellenKeyboard in einem Property merken, welche es ist.
Immer, wenn ein Eingabefeld den Fokus bekommt, kann man sich im VirtuellenKeyboard einem Property merken, welches es ist.
Beim Klick eines Buttons im VK kann man nun dem richtigen Edit eine Message senden, welche Taste gedrückt wurde, und danach die richtige Maske retour-aktivieren.
...oder?