Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.042 c