Warten bis Event OnKeyDown abgearbeitet ist

[concept2015]

Problem gelöst !!!
Ich habe in meiner Routine den Focus auf Edit26 gesetzt !
Das war der Fehler
Der Focus geht automatisch weiter.

************************************************** **************


Hallo Spezialisten,
ich habe ein Problem, welches ich auch nach längerem suchen nicht gelöst bekomme. (kann sein, dass ich auch nicht nach dem richtigen Begiff gesucht habe)
Ursprünglich habe ich meine Programme mit Visual Dbase programmiert.
Seit dem Tod des Mitarbeiters, in der Firma meines Freundes, der die Programme in dieser Firma entwickelt hat, beschäftige ich mich mit Delphi (freiwillig und kostenlos)
Jetzt zu meinem Problem:
In dem bestehenden Programm werden Zahlen von Hand, in mehrere Edit Felder eingetragen und ausgewertet.

Für dieses Programm habe ich eine optische Leseeinheit (Auswertung von Belegen in denen Zahlen markiert sind) eingebunden.
Hier werden jetzt mehrere Zahlen bereitgestellt.

Mein Problem ist: an Edit1 (bestehendes Prog.) wird eine Zahl gesendet und mit
Keybd_Event(VK_RETURN,0,0,0);
Keybd_Event(VK_RETURN,0,KEYEVENTF_KEYUP,0);
übergeben.
Jetzt wird das Event TForm1.Edit1KeyDown ausgelöst und eine Folge abgearbeitet.

In meiner Prozedur muss jetzt gewaret werden bis das Event TForm1.Edit1KeyDown abgearbeitet ist bevor ich in das nächste Feld(Edti26) die nächste Zahl eintragen kann.

Das bekomme ich nicht hin

Kurzfassung:
Mehrere Editfelder werden automatisch ausgefüllt.
Ich sende (aus meiner Procedure) Zahl 1 an Edit1 in der gleichen Form.
Bevor ich Zahl2 an Edit26 sende, muss das Event von Edit1 fertig sein.

Bitte dringend um HILFE

[Jumpy]

Mir ist jetzt nicht ganz klar geworden, ob das alles im selben Programm stattfindet, oder ob das Programm mit den Edits von einem externen Programm gesteuert/gefüllt wird?

[concept2015]

Tut mir leid ... habe es hinbekommen.
Alles in einem Programm (6000 Zeilen)

[baumina]

Wenn alles innerhalb des Delphiprogramms läuft, würde ich statt irgendwelche Tasten auszulösen (z.B. VK_RETURN) lieber die Edits direkt füllen (Edit1.Text := 'blabla').

[p80286]

@Baumina
Ich vermute das:

Zitat:

Für dieses Programm habe ich eine optische Leseeinheit (Auswertung von Belegen in denen Zahlen markiert sind) eingebunden.
Hier werden jetzt mehrere Zahlen bereitgestellt.

steckt dahinter. Und da viele Benutzer/Chefs nicht in der Lage sind zu sagen was sie wollen/benötigen kommen dann solche Durchdiebrustinsaugekonstrukte heraus.

Gruß
K-H

[concept2015]

Hallo,
meine Routine hat 6 Zahlen gelesen und soll sie nun in dem Hauptprogramm in die vorhandenen Felder eintragen.

Es geht darum, ca 300 Belege werden täglich eingegeben (von Hand)
Um diese Arbeit zu vereinfachen, werde ich die Belege umstellen.

Es werden keine Zahlen auf den Beleg geschrieben sondern Zahlen markiert.
Diese Markierungen werden von einem anderen Programm gelesen und
in die entsprechenden Zahlen umgewandelt.

Klappt alles !

Jetzt sollen diese Zahlen im eigentlichen Programm per Button übertragen werden ... Klappt auch alles ... bis auf einen Fehler,
der sich erst jetzt herausgestellt hat.

Die letzte Zahl z.B 118,50 (das ist die einzige Zahl mit Dezimalstellen)
wird nicht richtig übernommen ! das Komma fehlt !

Eingetragen wird 11850
Zum übertragen nutze ich die PostKeyExHWND Prozedur die hier im Forum schon mehrfach besprochen wurde.

Alles klappt wunderbar ! nur dieses Komma oder Punkt wird in der Procedure gelöscht oder übergangen

Habt Ihr eine Idee ?