Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.023 c
14-1101301441
РВА
2004-11-24 16:04
2004.12.12
Где найти


14-1101226654
ИМХО
2004-11-23 19:17
2004.12.12
Агентства переводов


14-1101190317
Rand
2004-11-23 09:11
2004.12.12
Оригинальные кнопочки!


8-1094655749
Stein
2004-09-08 19:02
2004.12.12
Работа с TImage


1-1101287166
vlad12
2004-11-24 12:06
2004.12.12
компилирует но невыполняет