Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.04;
Скачать: CL | DM;

Вниз

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

 
Дельфин   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
11-1106307599
<Falcon>
2005-01-21 14:39
2005.09.04
Работа с TBitmap в KOL


1-1123662088
webpauk
2005-08-10 12:21
2005.09.04
Hint с кнопкой закрытия


3-1122375671
Dyusha
2005-07-26 15:01
2005.09.04
Обратная командa Top


14-1123656431
ocean
2005-08-10 10:47
2005.09.04
Подбросьте формулировок о неисправностях компьютера


4-1121430528
JohnSmith
2005-07-15 16:28
2005.09.04
Работа с Mutex