Nach Klick auf Button Textfeld wieder aktivieren

[Luckie]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  // wenn weiter geschrieben werden soll
  //Edit1.SelStart := Length(Edit1.Text);
  // wenn Inhalt gelöscht werden soll
  Edit1.Text := '';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Button1.Enabled := Length(Edit1.Text) > 0;
end;