Форум: "Основная";
Текущий архив: 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.012 c