修正 ListView 搜寻问题

发布时间：2020-12-15 04:35:42 所属栏目：大数据来源：网络整理

导读：问题：如果 SearchEdit 里已输入过搜寻字，再新建 ListView 项目后，会无法显示。适用：Delphi XE5 源码下载： /spanspan style="color: #0000ff;"gt;for/span i:=span style="color: #800080;"gt;0/span span style="color: #0000ff;"gt;to/span span styl

问题：如果 SearchEdit 里已输入过搜寻字，再新建 ListView 项目后，会无法显示。

适用：Delphi XE5

源码下载：

 </span><span style="color: #0000ff;"&gt;for</span> i:=<span style="color: #800080;"&gt;0</span> <span style="color: #0000ff;"&gt;to</span> <span style="color: #800080;"&gt;30</span> <span style="color: #0000ff;"&gt;do</span>
 <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
      Item1 :</span>=<span style="color: #000000;"&gt; ListView1.Items.Add;
      Item1.Text :</span>=<span style="color: #000000;"&gt; i.ToString;
 </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;

 ListView1.EndUpdate;

 </span>//<span style="color: #000000;"&gt; 如果 SearchEdit 里已输入过搜寻字,再新建项目后,会无法显示,需要加入下行才能修正.
 ListView1.ClearSearchEdit;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListView1.SearchEdit.Text := '3';
end;

FMX.ListViewHelper.pas

interface

uses
FMX.ListView,FMX.Edit;

type
TListViewHelper = class helper for TListView
function SearchEdit: TSearchBox;
procedure ClearSearchEdit;
end;

implementation

{ TListViewHelper }

function TListViewHelper.SearchEdit: TSearchBox;
var i: Integer;
begin
Result := nil;

 </span><span style="color: #0000ff;"&gt;for</span> i:=<span style="color: #800080;"&gt;0</span> <span style="color: #0000ff;"&gt;to</span> Self.ComponentCount - <span style="color: #800080;"&gt;1</span> <span style="color: #0000ff;"&gt;do</span>
     <span style="color: #0000ff;"&gt;if</span> (Self.Components[i] <span style="color: #0000ff;"&gt;is</span> TSearchBox) <span style="color: #0000ff;"&gt;then</span>
     <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
          Result :</span>= Self.Components[i] <span style="color: #0000ff;"&gt;as</span><span style="color: #000000;"&gt; TSearchBox;
          Break;
     </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;

end;

procedure TListViewHelper.ClearSearchEdit;
begin
if SearchEdit <> nil then
begin
SearchEdit.Text := ' ';
SearchEdit.Text := '';
end;
end;

end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!