Visit our Sponsor   Visit our Sponsor
delphi3000.com - the free delphi knowledge platform
delphi3000.com - the free delphi knowledge platform
Have a look at your member-status

connecting people's knowledge


  - Recent ArticlesRSS feed for Recent Articles on delphi3000.com
  - List of All Articles
  - Top Viewed Articles
  - Articles (+Attachem.)
  - Articles Of Interest
  - Categories
  - Top Uploader
  - Search
  - Index

  - My Home
  - Submit an Article
  - My Articles
  - My Personal Data
  - My Bookmarks
  - Activities
  - Login/Logout

  - Sign Up
  - Why Sign Up
  - Newsletter

  - Press
  - Advertise

  - Contact
  - Feedback





Community
Borland
ClubeDelphi
Dr. Bob
UK-BUG
Delphi Meetings
Planeta Delphi







Startblatt.de






Share this article with friendsShare this article with friends
Rate this articleRate this article - to keep the quality of delphi3000.com !
Comment this article or read through previous comments (1)


An easy way and very powerfull way to have AutoComplete Search in TListBoxFormat this article printer-friendly!Bookmark function is only available for registered users!
Easy and powerfull way to Search AutoCompletely in TListBox
Product:
Delphi all versions
Category:
GUI
Skill Level:
Scoring:
Last Update:
04/27/2002
Search Keys:
delphi delphi3000 article borland vcl code-snippet ListBox, AutoSearch, AutoComplete, Search, WINAPI
Times Scored:
2
Visits:
3581
Uploader: Muhammad Baqer Mamouri
Company:
Reference: N/A
 
Question/Problem/Abstract:
How we can have autosearch ability for TListBox. For example if you type "m" listbox automatically go to the first item that start with "m" and then if you typed "o" it automatically go to the first item that it started with "mo" and so on.
Answer:



IT's really easy! Very Very easy
I see this tip in a site. sorry I forgott the name of the site

First of all put an TListBox and TEdit component in the form.
Now set the Visible property of you TEditBox to False.

OK!



Now just copy these line on "OnKeyDown" event of your TListBox:




var
   tmpPChar : PChar;
begin
     GetMem(tmpPChar, Length(Edit1.Text) + 1);
     StrPCopy(tmpPChar, Edit1.Text);
     Your ListBox Name.Perform(LB_SELECTSTRING, 0, LongInt(tmpPChar));
     FreeMem(tmpPChar, Length(Edit1.Text) + 1);


Finished!



Have Fun!





Please rate this article!
Skill level:
BeginnerExpert

Useful:
No!Very!

Overall rating:
PoorExcellent



Comments to this article
Write a new comment
Ur program
    Nagendra Peruru (Feb 19 2005 9:45AM)

This program will work without ur code !! what is special in ur code?
Respond














 
Sign up to consume product discounts for Bronze memberships !

read more


  Visit our Sponsor

 

  Community Ad of
M. Maes
 
   














 







     
  Copyright © 2000 - 2007 delphi3000.com - All rights reserved. Terms of use. || Privacy
delphi3000.com is a service by bluestep.com IT-Services GmbH (Vienna)