einfache Bildschirmtastatur

[bluescreen25]

hallo, ich suche nach Ansätzen für eine einfache Bildschirmtastatur zu schreiben.

Ich würde diese ggf auf Basis eines transparenten Images machen und dort die Koordinaten der Mausklicks abfragen und weiterleiten ....


Mein größtes Problem ist eigendlich, das in fremden Anwendungen umzuleiten...weiss da keinen Ansatz und auch in der API bin ich nicht so bewandert.

Logisch würde klingen, das in der fremden Anwendung focused Control sich zu merken, die Tastatur aufzuschlagen und dort die Taste wieder an das gemerkte externe Control zurück..

Wie macht man sowas????

MfG bluescreen25

[bitsetter]

Hallo,

die Bildschirmtastatur von Windows ist Topmost. Wenn man die Bildschirmtastatur verschiebt setzt diese sich dadurch wieder in den Vordergrund. Wenn man dann mit der Maus wieder über die Tastatur geht, wird das zuletzt aktive Fenster wieder in den Vordergrund gebracht.

Ich habe mal etwas herumexperimentiert, leider flackert das alles noch ein bisschen, da man beim klicken auf den Button das Fenster immer wieder nach vorne bringt.

Delphi-Quellcode:

  private 
    hForeground : HWND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowPos(self.Handle, HWND_NOTOPMOST + WORD(true), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  windows.SetForegroundWindow(hForeground);
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  windows.keybd_event(ord('A'), 0, 0, 0);//Beispiel
  keybd_event(ord('A'), 0, KEYEVENTF_KEYUP, 0);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  hForeground := windows.GetForegroundWindow;
end;

[bluescreen25]

Zitat von bitsetter:

Hallo,

die Bildschirmtastatur von Windows ist Topmost. Wenn man die Bildschirmtastatur verschiebt setzt diese sich dadurch wieder in den Vordergrund. Wenn man dann mit der Maus wieder über die Tastatur geht, wird das zuletzt aktive Fenster wieder in den Vordergrund gebracht.

Ich habe mal etwas herumexperimentiert, leider flackert das alles noch ein bisschen, da man beim klicken auf den Button das Fenster immer wieder nach vorne bringt.

Delphi-Quellcode:

  private 
    hForeground : HWND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowPos(self.Handle, HWND_NOTOPMOST + WORD(true), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  windows.SetForegroundWindow(hForeground);
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  windows.keybd_event(ord('A'), 0, 0, 0);//Beispiel
  keybd_event(ord('A'), 0, KEYEVENTF_KEYUP, 0);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  hForeground := windows.GetForegroundWindow;
end;

Danke für Ausführungen, ich habe selbst gestern versucht mit sendkeys etwas auf die Beine zu stellen, bekam komischerweise nur in einem Timer den Buchstaben gesendet, obwohl das Handle klar war, über einen Button gings nicht.

Bei deinem Code habe ich das Problem, das sowaohl beim Mousedown und beim MouseUp ein A gesendet wird, das ich aber nicht so ganz verstehe.

Gruß, bluescreen25

[SirThornberry]

Die Bildschirmtastatur sorft einfach mit dem richtigen Windowstyle dafür das sie nicht den Focus bekommt wenn man sie anklickt (sie wird also NICHT aktiviert und setzt danach das letzte Fenster wieder aktiv)

[bluescreen25]

Zitat von SirThornberry:

Die Bildschirmtastatur sorft einfach mit dem richtigen Windowstyle dafür das sie nicht den Focus bekommt wenn man sie anklickt (sie wird also NICHT aktiviert und setzt danach das letzte Fenster wieder aktiv)

Das verstehe ich jetzt nicht, egal was ich auf der Form platziere, irgendwann bekommt die Form den Focus, nicht nach dem ersten Klick, aber undeffinierbar bei xten Click.....oft wenn ich schnell hintereinander auf den Button clicke...

Was meinst du mit Windowsstyle ?

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowPos(self.Handle, HWND_NOTOPMOST + WORD(true), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;


procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  windows.SetForegroundWindow(hForeground);
  windows.keybd_event(ord('A'), 0, 0, 0);//Beispiel
end;


procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  hForeground := windows.GetForegroundWindow;
end;


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  windows.SetForegroundWindow(hForeground);
end;

Gruß, bluescreen25

[bluescreen25]

windows.SetActiveWindow(hForeground); sowie hForeground := windows.GetActiveWindow;

sind so wie ich es getestet habe , die bessere Wahl, dabei ist der Focus noch nicht wieder sporalisch auf die Bildschirmtastatur-Form gelangt.


MfG bluescreen25

[bitsetter]

So müsste es auch gehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin //sowas hier meinte SirThornberry bestimmt
  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);
end;

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  keybd_event(ord('A'), 0, 0, 0);//Beispiel
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  keybd_event(ord('A'), 0, KEYEVENTF_KEYUP, 0);
end;

Getestet unter WinXP

[bluescreen25]

Zitat von bitsetter:

So müsste es auch gehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin //sowas hier meinte SirThornberry bestimmt
  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);
end;

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  keybd_event(ord('A'), 0, 0, 0);//Beispiel
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  keybd_event(ord('A'), 0, KEYEVENTF_KEYUP, 0);
end;

Getestet unter WinXP

funktioniert prima, besten Dank !

[mkrasselt1]

Wunderbar, wunderbar, Dankedankedanke das habe ich gesucht ihr seit klasse