Listbox pt.3

← →
Bobby Digital © (2004-11-28 16:59) [0]

а как изменить значек крсора на стандартный если мышь находится вне Listbox`a

← →
OneFragLeft © (2004-11-28 17:07) [1]

А зачем его менять, он и так будет стандартный.
Просто не надо ничего придумывать в MouseMove у ListBox. А просто поставить св-во Cursor в такое, какое надо.

← →
Bobby Digital © (2004-11-28 17:12) [2]

Он меняется по действию MouseDown на screen.Cursor:=crDrag, а при MouseUp на screen.Cursor:=crDefault, это все просходит над Listbox, если 2 раза кликнуть на елементе Listbox`a появляется MessageDlg, по его исчезновению ... появляется небольшой глюк курсор меняет вид на screen.crDrag

← →
Bobby Digital © (2004-11-28 17:15) [3]

Я тут думаю может по таймеру проверять событие MouseDown ... чтоб в том случае если оно не выполняется то изменить курсорна Default

← →
Bobby Digital © (2004-11-28 17:16) [4]

как то не рационально кажется

← →
OneFragLeft © (2004-11-28 17:24) [5]

А может лучше ListBox1.Cursor:=crDrag и т.д.? При чём здесь Screen?

пытался ListBox1.Cursor:=crDrag перед тем как screen.cursor, но по неведомой мне причине курсор так и оставался вида default

в смыле он работал когда в листбоксе нету выбранных елементов как только выбираешь елемент он опять меняет вид на Дефолт

Вот:
procedure TForm1.ListBox1EndDrag(Sender, Target: TObject; X, Y: Integer); begin ListBox1.Cursor:=crDefault; end; procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin ListBox1.Cursor:=crDrag; end;

+ У ListBox св-во DragMode:=dmAutomatic; Можешь в инспекторе объектов поставить.

Listbox pt.3 Найти похожие ветки