TTmsAdvEdit clear text after lookup

VCL TMS VCL UI Pack
1

Hello,

there is actually no way, to reset a TTmsAdvEdit control after a lookup.
Could you please add

property ClearTextAfterLookUp: Boolean read FClearTextAfterLookUp write FClearTextAfterLookUp;

and in "procedure TTmsAdvEdit.DoneLookup;" add the first two lines of the following code:

  if Self.ClearTextAfterLookUp then
    Text := ''
  else if FLookup.Multi then
  begin
    NewValue := NewValue + FLookup.Separator;
    LookupText := Text; // get current text value & strip till last lookup part
    NewText := '';
    while VarPos(FLookup.Separator, LookupText, vp) > 0 do
    begin
      NewText := NewText + Copy(LookupText, 1, vp);
      Delete(LookupText, 1, vp);
    end;
    Text := NewText + NewValue;
  end
  else
    Text := NewValue;

  if not Self.ClearTextAfterLookUp then begin
    if FLookup.Multi then
      SelStart := length(Text)
    else
      SelectAll;
  end;

Thanks a lot :slight_smile:

2

I do not understand the purpose of this or the goal of what you try to accomplish?
Why would you want to reset the text from a valid lookup for example?

3

I have an edit field with lookup function. When I start typing, suggestions appear with names from the lookup list. When I select one of those suggestions, I add that record to a listbox with previously selected names. After the selection, the field for a new name should be emptied to lookup a new name.

4

I suggest to use OnLookupSelect and from this event set the Value param to empty string.

5

This did it! Sometimes the solution is easier than you first think. Thanks for the quick support. Have a nice day.