Установить курсор в вид по умолчанию

← →
dis12345 © (2013-08-26 19:33) [0]

Подскажите подалуйста, из элемента EditText программно переношу фокус ввода в ComboBox и открываю список:

IF ComboBox.CanFocus THEN ComboBox.SetFocus;
ComboBox.DroppedDown:=true;

курсор остается в виде "палочки" пока не выберу какой-нибудь элемент, хотелось бы чтоб он был в виде традиционной "стрелочки"
Подскажите как его обновить программно?

← →
DVM © (2013-08-27 00:17) [1]

Style := csDropDownList

← →
dis12345 © (2013-08-27 12:43) [2]

(2) не помогло...

на форме ComboBox и Edit при нажатии мышкой в edit раскрываю combobox , при наведении курсора на edit курсор переходит в режим редактирования и процедура

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
IF ComboBox.CanFocus THEN ComboBox.SetFocus;
ComboBox.DroppedDown:=true;
Form1.ComboBox.Cursor:=crArrow;
Form1.Edit1.Cursor:=crArrow;
Combobox.Repaint;
Edit1.Repaint;
end;

не изменяет вид курсора на стрелку, пока не щелкнешь где-нибудь... но тогда combobox закрывается.....

← →
Плохиш © (2013-08-27 13:28) [3]

> не изменяет вид курсора на стрелку, пока не щелкнешь где-
> нибудь

> procedure TForm1.Edit1MouseDown

Логично в общем-то.

← →
dis12345 © (2013-08-27 14:11) [4]

именно в mouse down программно переношу фокус ввода в другой элемент, курсор могу перемещать по форме, но он имеет вид не стрелки, а хотелось бы именно стрелку

Screen.Cursor := crArrow;

О СПАСИБО, про скрин-то я не думал..

Установить курсор в вид по умолчанию Найти похожие ветки