| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сразу менять курсор... [D5, Win95/98, Win2k]

TankMan ©   (2002-11-05 17:00:00) 

Тут уже был такой вопрос, но я его не смог найти, "проблема" вобщем в том, что при изменении курсора, он меняется, только после движения мышью, как сделать, что бы менялся сразу?

---

TankMan   (2002-11-07 17:32:00) [1]

Ясно, спасибо...

---

Alex4444444444   (2002-11-07 11:02:00) [2]

A on budet obrabatyvat" VSE TLabels. Esli hotite obrabatyvat" tol"ko nekotorye, postav"te im kakoj-nibud" flazhok f Tag i proveryajte v code (posle if ... is TLabel).

---

TankMan   (2002-11-07 02:33:00) [3]

Да, но я не знаю, сколько будет этих лейблов... их неизвестное кол-во :(... а из этого кода я не вижу, что он будет обрабатывать именно тот что нужно

---

Alex4444444444   (2002-11-06 21:31:00) [4]

Nu, pochemu?



var LastLabel: TControl;

procedure ParentMouseMove(...);
var Temp: TControl;
begin
Temp := ControlAtPos(...);
if Temp = LastLabel then Exit;
if Temp is TLabel then begin
LastLabel := Temp;
(Temp as TLabel).Cursor := ...
end
else if Assigned(LastLabel) then begin
(LastLabel as TLabel).Cursor := ...;
LastLabel := nil;
end;
end;



---

TankMan   (2002-11-06 21:03:00) [5]

:(... будет проблематично - лейбл динамически созданный, и обработчиков ставить дофига - можно запутаться.. и потеряться в своем же коде :)... может всетаки есть, какой-то способ сделать так чтобы он сразу обновил вид курсора? А вообще если никто ничего не скажет.. прийдется всетаки делать onmove :(

---

Alex4444444444   (2002-11-06 01:48:00) [6]

Obrabatyvajte OnMouseMove dlya Parent i smotrite, ne nad Vashej li on Label.

---

TankMan   (2002-11-06 01:30:00) [7]

Но в том-то и прикол, что у меня Д5 :(

---

¤NoNaMe¤   (2002-11-06 01:05:00) [8]

Не знаю как в D5, а в D6 у Label есть событиe OnMousEnter, если в его обрабтчике менять курсор, то все ОК

---

TankMan   (2002-11-05 23:08:00) [9]

Нет, я меняю курсор для лейбла, и когда курсор на нем, он становиться синего цвета, и должен измениться курсор, но получается, когда наводишь - лейбл становиться синим, а курсор становиться другим, если только пошевелишь еще мышкой. :(

---

KoluChi   (2002-11-05 17:02:00) [10]

Screen.Cursor := crHourGlass;

---

Наверх