Bildschirmtastatur Fehler, aber wo???

[XXcD]

Hallo,
ich bastel gerade eine kleine Bildschirmtastatur.
Da es ja auch ziemlich viele Tasten sind, wollte ich jetzt einfach von dem Button den ich klicke die Caption nehmen und senden.

Also ein Button wo "E" draufsteht soll dann auch "E" gesendet werden.


Ich versuche es gerade so, aber da funktioniert garnicht.

Delphi-Quellcode:

var
BtnCaption: TCaption;
...

BtnCaption:=TButton(Sender).Caption;
windows.SetForegroundWindow(hForeground);
keybd_event( Cardinal(BtnCaption), MapVirtualKey( Cardinal(BtnCaption), 0 ), 0, 0 );
keybd_event( Cardinal(BtnCaption), MapVirtualKey( Cardinal(BtnCaption), 0 ), KEYEVENTF_KEYUP, 0 );

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

Wo liegt denn da der Fehler?

[mkinzler]

Versuch mal statt
Cardinal(BtnCaption) Ord( BtnCaption[1])

[Apollonius]

Du darfst nicht den Caption-String nach Cardinal casten, sondern musst den ersten Buchstaben Caption[1] verwenden.

[XXcD]

Ok so weit so gut das funktioniert, aber wenn ich eine Taste drücke und dann noch ne andere wird der erste buchstabe ersetzt.
Also wenn ich in eine Addressleiste "e" klicke kommt "e" und wenn ich "w" drücke kommt "w".
Eigentlich sollte ja dann da "ew" stehen.

[XXcD]

Ich habe das Programm jetzt nochmal so getestet.
Mein Ergebnis:

-in Notepad funktioniert alles einwandfrei

-z.B. Im IE kann ich in der Adressleiste nichts eingeben.
Jeder neue Buchstabe den ich schreibe, überschreibt den alten.


So sieht mein Code aus:

Delphi-Quellcode:

procedure TForm3.standartkeyclick(Sender: TObject);
var
BtnCaption: TCaption;
begin
//letztes Fenster in den Vordergrund holen
windows.SetForegroundWindow(hForeground);
//Caption von Button auslesen
BtnCaption:=TButton(Sender).Caption;
//Caption Buchstabe als Tastendruck senden
keybd_event(ord(BtnCaption[1]), 0, 0, 0);
keybd_event(ord(BtnCaption[1]), 0, KEYEVENTF_KEYUP, 0);
end;

[himitsu]

Problem: wenn das IE-Adress-Edit neu selektiert (SetForegroundWindow) wird, dann wird der gesamte Inhalt markiert und mit dem nächsten Zeichen überschrieben.

theoretische Lösung: dein Programmfesnter darf nicht den Fokus erhalten ... ähnlich wie bei Hint-Fenstern.

[nat]

oder er simuliert vor der taste noch einen tastendruck von "Ende" um ans ende des strings zu springen.
sollte eigentlich in dem fall seinen dienst auch tun.

[alzaimar]

Zitat von nat:

oder er simuliert vor der taste noch einen tastendruck von "Ende" um ans ende des strings zu springen.
sollte eigentlich in dem fall seinen dienst auch tun.

Und wenn ich in der Adressleiste editieren will?

[nat]

das feature ist dann nicht implementiert!
ok, war auch eher ne notlösung. ist vielleicht wirklich nicht
so praktisch. mir ging das nur grad so durch kopf und da dachte
ich, ich lasse euch mal daran teilhaben!

[SirThornberry]

warum verwendest du überhaupt setforegroundwindow? Bei Bildschirmtastaturen stellt man eigentilch den Windowstyle so dass das Bildschirmtastaturfenster den Focus nicht bekommt.