Delphi - Mogućnost "Autocompletion"

U ovom tekstu ćete pronaći veoma korisnu proceduru koja će vašim aplikacijama obezbediti "Autocompletion" mogućnost. Ova mogućnost ste sigurno iskusili uz Internet Explorer, kada ukucavate adresu neke stranice, a browser, zahvaljujući history listi, vrši "dokompletiranje" adrese. Tako će biti i u našem primeru, s tim što ćemo umesto URL-a, imati fontove. Vi možete i sami da napravite neku listu stavki da bi isprobali dokompletiranje. Postavite na praznu formu jedan Combobox, te za dobijanje svih fontova na sistemu, bilo gde dodajte sledeću liniju:

ComboBox1.Items := Screen.Fonts;

Ova linija će u combo polje dodati sve fontove (ovo će nam biti bitno za testiranje). Te, ostalo vam je da unutar događaja OnChange (combobox-a) dodate programski kod:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
I, StartPoz: Integer;
begin
  ComboBox1.Items := Screen.Fonts;
  for I := 0 to ComboBox1.Items.Count -1 do
  begin
    with ComboBox1 do
       begin
       if (Text = '') or (LowerCase(Items[I]) 
       = LowerCase(Text)) then Exit;
       if StrLComp(PChar(LowerCase(Items[I])),_
       _PChar(LowerCase(Text)),Length(Text)) = 0 then
        begin
           StartPoz := Length(Text);
           Text := Text + Copy(Items[I], StartPoz + 1, Length(Items[I]));
           SelStart := StartPoz;
           SelLength := Length(Text) - StartPoz;
       end;
      end;
 end;
end;