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

Вниз

Изменение курсора на границе панели   Найти похожие ветки 

 
Дельфин   (2005-08-11 20:49) [0]

Когда я обычным методом присваиваю панели собственный курсор, то курсор меняется внутри панели, а на границе остаётся как обычный Windows-курсор.
Как мне сделать так, чтобы курсор менялся на границе на мой собственный?


 
Petr V. Abramov ©   (2005-08-11 20:58) [1]

Обрабатывать WM_SETCURSOR?


 
Дельфин   (2005-08-11 21:07) [2]

Не очень хорошо представляю как это работает. Не можете ли объяснить поподробней?


 
Kolan ©   (2005-08-11 21:14) [3]

Windows SDK Help + WM_SETCURSOR - там подробнее есть.


 
Ученик   (2005-08-11 21:22) [4]

>Дельфин   (11.08.05 20:49)  

Возможно, не понял что нужно


procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if (X < 3) or ((Panel1.Width - X) < 3) then
   Panel1.Cursor := crSizeWE
 else if (Y < 3) or ((Panel1.Height - Y) < 3) then
   Panel1.Cursor := crSizeNS
 else
   Panel1.Cursor := crDefault
end;



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

Форум: "Основная";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.019 c
14-1123507028
lookin
2005-08-08 17:17
2005.09.04
Неприятная история с пропажей монитора


14-1121021072
Иксик
2005-07-10 22:44
2005.09.04
Предлагаю внеочередные МП


1-1123748220
Суслик
2005-08-11 12:17
2005.09.04
Проблемы с TListView


9-1116018261
XCoder
2005-05-14 01:04
2005.09.04
Оптимизация рендеринга OpenGL


14-1123732123
XenoX
2005-08-11 07:48
2005.09.04
Люди плиз help нужны иконки





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский