Posted by webmaster Guido on November 27, 2001 at 18:47:18:
In Reply to: Webmaster Guido, question about an old post of yours posted by Michael Ross
: In the post article you provide a way to search a listbox incrementally.
: My question is: Where, in that code, could I place a MessaeDlg informing if "No Matches Found"?
: Have already preceded the code with:
If Edit1.text = '' then begin //check to make sure text has been entered MessageBeep(MB_ICONEXCLAMATION); MessageDlg('Please enter the text you wish to search for', mtError, [mbOK], 0); Edit1.SetFocus; //set focus if no text entered. Exit; //quit subroutine if the edit box is empty end
: But am having no luck figuring where to put the "No Matches Found" message.
You can change the last line of the routine:
if Found then LB.ItemIndex := i;
to the following:
if Found then LB.ItemIndex := i else MessageDlg('No match found', mtWarning, [mbOk], 0);
For those of you who want to follow along, you can open a new window with the original message and
code by clicking here: