Hi!
Die Prozedur hat sicher bei dem Drücken der Enter-Taste perfekt funktioniert. Nur wenn du einen Beitrag weiter oben liest, siehst du auch den Fehler:
Dein Originalcode
Delphi-Quellcode:
procedure TForm1.edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then // Wenn die Taste Enter gedrückt wurde
SendClick(Self); // Dann soll er SendClick() ausführen
Edit2.Text := ''; // Da diese Zeile nicht im If-Block steht
// wird diese Anweisung immer im OnKeyPress ausgelöst, bei jeder Taste
end;
Und da natürlich dein 'a' im Edit schon drinne stand, wird das Edit geleert und dein 'b' nun reingeschrieben. Korrektur findest du im Beitrag von Matze!