имеем ComboBox для отображения списка строк.

если размер строки больше длины компонента, то при выборе ее из списка курсор переходит в конец строки. как его перевести в начало? (нужно,чтобы виден был НЕ конец строки, а начало.)

Код

procedure TForm1.Timer1Timer(Sender: TObject); begin  Timer1.Enabled := False;  ComboBox1.SelLength := 0; end; procedure TForm1.ComboBox1CloseUp(Sender: TObject); begin  Timer1.Enabled := True; end;

Timer1.Interval = 100 ms, Timer1.Enabled = False

способ извратный, но другого я не нашел.

cully, а не проще ли повесить на onСhange:

Код

procedure TForm1.ComboBox1OnChange(Sender: TObject); begin ComboBox1.SelStart := 0; end;

Не проще, т.к. ни на каких событиях это не работает.
Я еще пытался сделать с помощью имитации нажатия "Home" на собитях - дак тоже 0 реакции...

altarasjuk, ты сам проверь стал бы я так извращаться

Я вешал на OnChange код типа

ComboBox1.SelStart := 0;
showmessage('тра-та-та')

когда он выводит сообщение, то все нормально (позиция курсора в начале)
но сразу после закрытия диалога, весь текст выделяется
Т.е. это происходит сразу после события OnChange, и никакие извращения с этим событием не помогут.
Единственное решение, как уже говорил cully, использовать таймер.

Я вешал это на OnChange

Код

ComboBox1.SelStart := 0; ComboBox1.Enabled := 2=3; ComboBox1.Enabled := 2=2;

и всё работает без таймера

З.Ы. правда придётся делать выбор только мышкой

А что там за хитрые махинации с 2=3 и 2=2 ?
True и False не пойдет, или это какая-то хитрость ?

DonPager, только лучше это вешать на OnCloseUp...

Это как у EditBox'а есть AutoSelect, только у ComboBox'а его отключить нельзя.
А эти манипуляции с Enabled (можно и с Visible) переводят фокус на другой компонент. И AutoSelect не срабатывает...
Можно вместо Enable'ов сделать SomeComponent.SetFocus и результат будет аналогичный.
Поэтой же причине что ни делай в обработчиках, все равно потом сработает этот автоселект и всё испортит...
А если Style := DropDownList, то тут проблем вообще не возникает...

Цитата

ComboBox1.Enabled := 2=3; ComboBox1.Enabled := 2=2;