清除 TEdit 控制 rad studio delphi

Question

使用TEdit控件时，右侧保持小图标'x'。单击图标后如何清除 TEdit 框。

谢谢大家！

Answer 1

Delphi提供TClearEditButton清除TEdit内容。可以通过右键单击并从弹出菜单中选择 AddItem - TClearEditButton 来添加它。它还有一个以 FMX.Edit 单元覆盖的点击程序，例如：

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;

这使您无需为 TClearEditButton 编写 OnClick 事件处理程序，除非您想在清除编辑的同时做一些其他工作。

如果您使用的是 TEditButton，那么您应该像这样编写 OnClick 事件处理程序：

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

清除 TEdit 控制 rad studio delphi

Clear TEdit control rad studio delphi

delphi

firemonkey

rad-studio