کمک در خصوص کامپوننت dblookupcombobox

[omid_delphi2]

سلام خدمت دوستان مخصوصا اقای کرامتی
من دنبال یک کامپوننت برای دلفی میگردم که شبیه dblookupcombobox یا dblookuplistbox باشد
با این تفاوت که اولا در هنگام تایپ ،عبارت تایپ شده را نمایش دهد ثانیا بر روی مواردی که عبارت تایپ شده در انها وجود دارد فیلتر کند به طور مثال در صورت تایپ "احمد" کلیه مواردی را که احمد در آنها وجود دارد(مثل احمدی - احمدیان-یاراحمدی و ...) فیلتر شود و از میان انها انتخاب انجام گیرد
اگر کسی از دوستان کامپوننتی دارد یا امکان نوشتنش را دارد اعلام کند
قبلا از همکاری کلیه دوستان تشکر میکنم
omidshf@yahoo.com
09133138579

[mehranFX]

ما نمونه چنین کامپوننتی رو در شرکت ، طراحی کرده ایم در صورت نیاز بفرمایید چه رقمی برای این کامپوننت می خواهید پرداخت کنید ؟

[omid_delphi2]

اولا از اینکه جواب دادی ممنون
ثانیا شما فروشنده ای شما بگید
در صورت امکان تماس بگیرید

[jamal1384]

edSearchChange یک edit box میباشد



procedure TForm1.edSearchChange(Sender: TObject);
begin
with Table1 do begin
SetKey;
FieldByName('Company').AsString:=edSearch.text;
GotoNearest;
end;
end


procedure TForm1.edSearchChange(Sender: TObject);
var txt, sfind:string;
len:integer;
begin
//don't do anything if user presses
//delete or backspace
if edFromCode = true then begin
edFromCode := false;
exit;
end;

//don't do anything if there is
//no text in edSearch
txt:=edSearch.Text;
if Length(txt)=0 then exit;

//goto nearest match
with Table1 do begin
SetKey;
FieldByName('Company').AsString:=edSearch.text;
GotoNearest;
end;

//calculate what part of text should be selected
sfind := Table1.FieldByName('Company').AsString;
len := Length(sfind) - Length(txt);
if len > 0 then begin
edFromCode:=true;
edSearch.Text:=sfind;
edSearch.SelStart:=Length(txt);
edSearch.SelLength:=len;
end;
end;

procedure TForm1.edSearchKeyDown
(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_DELETE) or (Key=VK_BACK) then begin
if Lenght(edSearch.Text)>0 then begin;
//onchange event should not be executed...
edFromCode := true;
end;
end;
end
;

امیدوارم که به دردت بخوره

[ali_abbasi22145]

سلام
کامپوننت infopower این را خودش دارد