Изменение курсора на границе панели

← →
Дельфин (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;

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