清除TEdit控件rad studio delphi

使用右侧的TEdit控件时，保持小图标“x”。点击图标后如何清除TEdit框

Tnx全部

---

Delphi提供

TlearEditButton

以清除

TEdit

内容。可以通过右键单击并从弹出菜单中选择

AddItem-TClearEditButton

来添加它。它还有一个在FMX中覆盖的点击程序。编辑单元如下：

procedure TClearEditButton.Click;
var
  EditTmp: TCustomEdit;
begin
  inherited Click;
  EditTmp := GetEdit;
  if EditTmp <> nil then
  begin
    if EditTmp.Observers.IsObserving(TObserverMapping.EditLinkID) then
      if not TLinkObservers.EditLinkEdit(EditTmp.Observers) then
        Exit; // Can't change
    EditTmp.Text := string.Empty;
    if EditTmp.Observers.IsObserving(TObserverMapping.EditLinkID) then
      TLinkObservers.EditLinkModified(EditTmp.Observers);
    if EditTmp.Observers.IsObserving(TObserverMapping.ControlValueID) then
      TLinkObservers.ControlValueModified(EditTmp.Observers);
  end;
end;

---

VCL还是火猴？@SamiFireMonkey@Sami我正在创建新的空白移动和设备应用程序，并添加TEdit控件。单击“X”后，什么也没发生。我是初学者。我用

TEdit

和

TClearEditButton

创建了一个新的空白项目，该按钮工作正常。（德尔福10西雅图）@Sami那是TEdit按钮！

procedure TForm1.EditButton1Click(Sender: TObject);
begin
  Edit1.Text:= EmptyStr;
end;