Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.57 MB
Время: 0.053 c
1-1101541575
Igor_thief
2004-11-27 10:46
2004.12.12
Хинт


3-1100604655
Stass
2004-11-16 14:30
2004.12.12
Композитный отчет (QR)


4-1098339093
Dema-X
2004-10-21 10:11
2004.12.12
CNTRL+A или как проэмулировать нажатие горячих клавиш?


1-1101401049
Руслана
2004-11-25 19:44
2004.12.12
Почему BlockWrite(SaveFile, D, 4) вызывает предупреждение


1-1101762349
SDV
2004-11-30 00:05
2004.12.12
Error





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский