Kann nicht in edit schreiben

[Matze]

Hi

Zitat von Executor:

Aber das mit dem edit kapier ich einfach net

Aber ich.

Du hast (ich formatiere es einmal um) das hier:

Delphi-Quellcode:

procedure TForm1.edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    SendClick(Self);

  Edit2.Text := '';
end;

Du leerst das Edit also im OnKeyPress. Um mehrere Bedingungen einer if-Abfrage zuordnen zu können, müssen diese in einen begin-end-Block eingefasst werden:

Delphi-Quellcode:

procedure TForm1.edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    SendClick(Self);
    Edit2.Text := '';
  end;
end;