Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.22;
Скачать: CL | DM;

Вниз

Снять выделение и установить курсор в позицию Combobox-а   Найти похожие ветки 

 
fishka   (2007-05-16 09:58) [0]

При получении фокуса Combobox (где уже находится значение, например, 921) нужно снять выделение и установить курсор в 4 позицию, чтобы набивать дальше.

Не знаю, как это сделать. Для компонета Edit всё нормально.
(Edit1.SetFocus;
Edit1.SelStart := 4;
Edit1.SelLength := 0;)

Помогите, пожалуйста, с ComboBox-ом. Стиль csDropDown.


 
clickmaker ©   (2007-05-16 10:00) [1]

SelStart
SelLength


 
fishka   (2007-05-16 10:04) [2]

Это не помогает. Если бы было так всё просто.....


 
clickmaker ©   (2007-05-16 10:15) [3]


> например, 921

отправку смс делаешь?

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
 PostMessage(ComboBox1.Handle, CB_SETEDITSEL,0,$FFFFFFFF);
end;


 
fishka   (2007-05-16 10:28) [4]

> отправку смс делаешь?
Нет, ввод.

>procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
PostMessage(ComboBox1.Handle, CB_SETEDITSEL,0,$FFFFFFFF);
>end;

Так смешно получилось.
Набираю ( не глядя ) 1234567. Вижу 7654321.

Чего-то не хватает.


 
clickmaker ©   (2007-05-16 10:41) [5]

это уже из другой серии что-то
не наблюдал такого
в общем, в этом направлении копать надо


 
fishka   (2007-05-16 11:03) [6]

Спасибо. Работает.

Можно ещё повесить на событие KeyUp.
ComboBox1.SelStart:=3;
ComboBox1.SelLength:=0;

А Ваш вариант работает и на вход мыши. ещё раз: СПАСИБО!



Страницы: 1 вся ветка

Текущий архив: 2007.07.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.023 c
15-1182859309
Ega23
2007-06-26 16:01
2007.07.22
Хочу редактор классов для Delphi 7


3-1176900325
DmitrichJ
2007-04-18 16:45
2007.07.22
Большие картинки в БД


9-1156110789
Normal
2006-08-21 01:53
2007.07.22
Какие существуют способы вычисления нормалей?


2-1182836764
sergeyst
2007-06-26 09:46
2007.07.22
Всем привет!


1-1179398808
Dmitry_177
2007-05-17 14:46
2007.07.22
StringGrid при нажатии на ячейку был выделенный текст