안녕하세요 구창민입니다.

Delphi6 이상에서는 AutoComplete property 프로퍼티를 True 로

주면 그 기능이 되지요.

아래 내용은 Dephi3000 에 있는 내용입니다.

원하시는 자동완성기능이 구현되어 있습니다.

즐거운 프로그래밍 하세요~


var
lastKey: Word;


procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
lastKey := Key;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
SearchStr: string;
retVal: integer;
begin
// copy search pattern
SearchStr := (Sender as TCombobox).Text;

// backspace: VK_BACK or $08
if lastKey <> VK_BACK then
begin
   retVal := (Sender as TCombobox).Perform(CB_FINDSTRING, -1, LongInt(PChar(SearchStr)));

   if retVal > CB_Err then
   begin
     (Sender as TCombobox).ItemIndex := retVal;
     (Sender as TCombobox).SelStart := Length(SearchStr);
     (Sender as TCombobox).SelLength :=
       (Length((Sender as TCombobox).Text) - Length(SearchStr));
   end; // retVal > CB_Err

end; // lastKey <> VK_BACK

// reset lastKey
lastKey := 0;
end;