Gleichzeitige Eingabe in einem anderen Edit-Feld

[bioser]

hi, ich bin's nochmal. Ein kleines Problem hätte ich noch.
Ich habe sozusagen ein Haupteingabefeld vom Typ TEdit.
Wenn ich hier ein Zeichen eingeben, dann soll es gleichzeitig
in einem anderen Edit-Feld erscheinen, in welchem, ist
abhängig davon, was man in einer ComboBox ausgewählt hat.

In dem OnKeyPress-Handler steht bei mir folgender Code:

Delphi-Quellcode:

procedure TMain.TntHauptEditKeyPress(Sender: TObject; var Key: Char);

begin

if TNTComboBox1.Text = 'noun'
then begin
 
  Edit1.Text := HauptEdit.Text+key;
end

else if TNTComboBox1.Text = 'verb'
then begin

  Edit2.Text := HauptEdit.Text+key;
   
end;

end;

Alles soweit ok, aber wenn ich zum Beispiel ein Zeichen lösche, dann
sieht das in dem anderen Edit-Feld sehr bescheiden aus. Es bleibt
ein Kästchen stehen, was ja auch irgendwie einleuchtend ist.
Für eine "saubere" Lösung wäre ich sehr dankbar.

Gruss
BIOSER

[faux]

Hallo!

Wieso lässt du nicht einfach das Key weg?

Delphi-Quellcode:

if TNTComboBox1.Text = 'noun' then
  Edit1.Text := HauptEdit.Text
else if TNTComboBox1.Text = 'verb' then
  Edit2.Text := HauptEdit.Text;

Ich seh grad, dass du das in OnKeyPress reingesetzt hast. Was hast du gegen OnChange?

Grüße
Faux

[bioser]

hi, da habe ich wohl zu umständlich gedacht. Das war's. Danke.