Delphiコンボボックスの先頭にカーソルを移動したい

すみませんどなたか教えて下さい。

コンボボックスでデータを選択時、onchangeイベントの中で、
「コンボボックスの先頭にカーソルを移動」という処理をしたいです。
コンボ.SelStart:=0;
といコードを書いているのですが、実際はカーソルはコンボボックスの最後にあり、先頭に移動しません。

どなたかご存知の方教えて下さい、よろしくお願い致します。

No.2 ベストアンサー 回答者： t-sazen 回答日時： 2008/08/06 15:46

そういう事だったんですか・・・^^;;

それならコンボボックスのStyleプロパティをcsDropDownListにすればOKです。（デフォルトではcsDropDownになってるはず・・・）
これならOnChangeイベントハンドラは必要ありません。

この回答へのお礼

ありがとうございました！！
Styleのプロパティの設定でできたんですね・・・。
けっこう悩んでしまいました。
どうもありがとうございました。

お礼日時：2008/08/06 16:01

No.1 回答者： t-sazen 回答日時： 2008/08/06 12:27

onChangeイベントで先頭アイテムにカーソル移動？？？

ひょっとしたらコンボボックスにフォーカスが来たら、先頭アイテムにカーソルが移動じゃなくて？？？
もし上に書いてあることを実行したければ、OnEnterイベント中に、コンボ.ItemIndex := 0;でいいはず。
onChangeイベントでItemIndex := 0;をすると、どれを選んでも先頭アイテムを選ぶことになってしまいますけど？？？

この回答への補足

回答ありがとうございます。
質問事項がわかりにくくてすみません。
先頭アイテムではなくて、選択されたアイテムの先頭に（0桁目）にカーソルを移動させたいのです。
理由は、コンボボックスには桁数の長いアイテムがセットされています。
そのアイテムを選択すると、カーソルがアイテムの最後にあり、先頭から数文字が見えなくなってしまうからです。
何か良い方法がありますでしょうか？

補足日時：2008/08/06 13:04