In "aktives" Textfeld schreiben

[-=cats=-]

Hi :)

Ich habe 2 Forms.
Bei der einen Form handelt es sich um
eine Oberfläche mit 2 Textfeldern, bei der
anderen um eine Art "Bildschirmtastatur".

Jetzt habe ich es schon geschafft, dass ich mit
meiner Bildschirmtastatur in Edit1 schreiben kann.
Ich habe es auch hinbekommen, den Cursor am
Ende (wenn die Eingabe beendet sein soll)
in das andere Textfeld springen zu lassen.

Allerdings .. hier ist nun das Problem ...
weiß ich nicht, wie ich da reinschreibe.

Ich mache es so: Sobald auf den Button geklickt wird,
setze ich den entsprechenden Buchstaben in Edit1.
Nun hatte ich mir überlegt, zu schauen, welches
Textfeld den Focus hat. Das wollte ich mit einer
if-Anweisung machen.

Delphi-Quellcode:

if (Form11.Edit1.Focused)
then 
 // Schreibe in Edit1
else
 // Schreibe in Edit2

Leider haut das nicht hin. Er schreibt immer in Edit1 ....

Weiß vielleicht jemand, woran das liegen könnte ?

-=cats=- :coder:

Vielleicht sollte ich noch erwähnen, dass die Buchstaben bzw. Zahlen,
die in Edit1 stehen, deaktiviert werden. Sie dürfen dann in dem Textfeld
nicht mehr stehen.
Allerdings sollten sie dann für Edit2 wieder aktiviert werden ;)

[Neon-chan]

Mhh...ich könnte mal vermuten, dass es damit zusamenhängt, dass der Focus verloren geht, sobald du ins 2. Formular wechselst.

Du könntest mal versuchen, dir eine Variable zu machen, in die du im OnEnter-Event der Edits jeweils das entsprechende Edit reinschreibst..

Diese sollte dann eigentlich zuverlässig das zuletzt aktive Edit enthalten