Eingabe per Edit oder Listbox

[Hansa]

Hi,

es geht um folgendes (Warengruppen) : habe ein Edit in das kann ich eine Zahl eingeben. Danach soll zum nächsten Feld gewandert werden. Wenn ich nun die Zahl nicht weiß, so kann man eine Listbox mit allen Möglichkeiten einblenden und per Klick die richtige Zahl übernehmen. Die soll dann in das Edit eingetragen werden und dann solls wiederum weiter ins nächste Feld gehen. Die Warengruppe steht dann im Klartext auch in einem Label.

Allerdings hat das Ganze einen Schönheitsfehler. Und zwar komme ich ins nächste Feld, sofern ich die Zahl direkt eingebe. Wird sie aus der Listbox geholt, dann muß man sie nochmals extra mit Enter bestätigen. Die steht also im Edit und ist blau hinterlegt. Wurde sie aus der Listbox übernommen, dann soll sie auch sofort gelten, ohne noch irgendeine Aktion machen zu müssen.

[ichbins]

wie wärs mit

Delphi-Quellcode:

procedure tform1.listbox1click(sender:tobject);
begin
  edit1.text:=dingsda;
  edit2.setfocus;
end;

[Klaus01]

Hallo Hansa,

geht das nicht mit SetFocus.
Das Du den Focus auf das nächste Feld
setzt wenn aus der Liste etwas ausgewählt wurde.

Grüße
Klaus