سلام دوست عزیز , ببخشید دیر جواب دادم
var
Form1: TForm1;
FCheck: Boolean;
TempList: TStringList;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
FCheck:=True;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
var
Loop: Cardinal;
TempText: String;
begin
if FCheck=True then
begin
TempList := TStringList.Create;
For Loop:=0 to ComboBox1.Items.Count-1 do
TempList.Append(ComboBox1.Items.Strings[Loop]);
end;
ComboBox1.Items.Clear;
ComboBox1.DroppedDown:=False;
For Loop:=0 to TempList.Count-1 do
if Pos(ComboBox1.Text,TempList.Strings[Loop])<>0 then
ComboBox1.Items.Append(TempList.Strings[Loop]);
FCheck:=False;
TempText:=ComboBox1.Text;
if TempText<>'' then
begin
ComboBox1.DroppedDown:=True;
ComboBox1.Text:=TempText;
ComboBox1.SelStart:=Length(ComboBox1.Text);
end;
end;
خدمت شما
فقط یه ComboBox بذار روی فرم