procedure TFrmEditEmr.AdvEdit1KeyPress(Sender: TObject; var Key: Char);
var
i:integer;
begin
if Trim(AdvEdit1.Text) = ‘’ then Exit;
if key=#13 then
for i := 0 to TvModel.items.count-1 do
begin
If Pos(Trim(AdvEdit1.Text), TvModel.Items[i].Text) > 0 Then
begin
TvModel.Items[i].Selected := True;
TvModel.Items[i].Focused := True;
end;
end;
end;
Delphi 检索树检点
最新推荐文章于 2022-07-12 04:43:43 发布