안녕하세요. 최용일입니다.

콤보박스의 OnDropDown 이벤트에 아래와 같이 코딩해보세요...

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
    TComboBox(Sender).ItemIndex := TComboBox(Sender).Perform(CB_FINDSTRING, -1, LongInt(PChar(TComboBox(Sender).Text)));
end;

^^ 항상 즐코하세요...

답변갑사합니다. ~

그런데 코딩한거랑 안한거랑 차이가 없이 스크롤은 움직이지 않네요...

안녕하세요. 최용일입니다.

아~ 실수했네요... 그냥 테스트 안하고 올린거라서....

아래와 같이 해보세요...

interface

const
    WM_COMBOBOXDROPDOWN = WM_USER + 1;

type
    TForm1 = class(TForm)
        ......
        procedure ComboBox1DropDown(Sender: TObject);
    private
        procedure WMCOMBOBOXDROPDOWN(var WinMsg: TMessage); message WM_COMBOBOXDROPDOWN;
    end;

implementation

procedure TForm1.ComboBox1DropDown(Sender: TObject);
// ComboBox1 OnDropDown Event
begin
    PostMessage(Handle, WM_COMBOBOXDROPDOWN, 0, 0);
end;

procedure TForm1.WMCOMBOBOXDROPDOWN(var WinMsg: TMessage);
// WM_COMBOBOXDROPDOWN Message Handler
var
    OldTopIndex, NewTopIndex: Integer;
begin
    if ComboBox1.Items.Count >= 2 then
    begin
        OldTopIndex := ComboBox1.Perform(CB_GETTOPINDEX, 0, 0);
        while True do
        begin
            Application.ProcessMessages;
            ComboBox1.Perform(CB_SETTOPINDEX, OldTopIndex - 2, 0);
            NewTopIndex := ComboBox1.Perform(CB_GETTOPINDEX, 0, 0);
            if OldTopIndex - 2 = NewTopIndex then
                Break;
        end;
    end;
end;

^^ 항상 즐코하세요...