Kann nicht in edit schreiben

[NecroWurst]

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!