Главная страница
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.063 c
14-1123747444
peypivo
2005-08-11 12:04
2005.09.04
Хорошие кафешки в Киеве.


1-1124140320
Витёк
2005-08-16 01:12
2005.09.04
Обработка события входа курсора мыши на компонент и выхода!


10-1101710610
Сергей Г
2004-11-29 09:43
2005.09.04
Последняя не пустая ячейка


2-1081121430
ChiNick
2004-04-05 03:30
2005.09.04
Как работать с цветом


3-1122450217
Zmiy
2005-07-27 11:43
2005.09.04
ADOStoredProc