Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Установить курсор в вид по умолчанию [D7, XP]

dis12345 © (2013-08-26 19:33:00)
Подскажите подалуйста, из элемента EditText программно переношу фокус ввода в ComboBox и открываю список:

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

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

dis12345 (2013-08-27 15:52:00) [1]
О СПАСИБО, про скрин-то я не думал..

Плохиш (2013-08-27 15:12:00) [2]
Screen.Cursor := crArrow;

dis12345 (2013-08-27 14:11:00) [3]
именно в mouse down программно переношу фокус ввода в другой элемент, курсор могу перемещать по форме, но он имеет вид не стрелки, а хотелось бы именно стрелку

Плохиш (2013-08-27 13:28:00) [4]

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

> procedure TForm1.Edit1 MouseDown

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

dis12345 (2013-08-27 12:43:00) [5]
(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 закрывается.....

DVM (2013-08-27 00:17:00) [6]
Style := csDropDownList

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »