Скачать: CL | DM;

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?

---

← →
Bobby Digital ©   (2004-11-28 17:27) [6]

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

---

← →
Bobby Digital ©   (2004-11-28 17:30) [7]

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

---

← →
OneFragLeft ©   (2004-11-28 17:37) [8]

Вот:
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; Можешь в инспекторе объектов поставить.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c