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

Сразу менять курсор...   Найти похожие ветки 

← →
TankMan ©   (2002-11-05 17:00) [0]

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

---

← →
KoluChi ©   (2002-11-05 17:02) [1]

Screen.Cursor := crHourGlass;

---

← →
TankMan ©   (2002-11-05 23:08) [2]

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

---

← →
¤NoNaMe¤ ©   (2002-11-06 01:05) [3]

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

---

← →
TankMan ©   (2002-11-06 01:30) [4]

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

---

← →
Alex4444444444   (2002-11-06 01:48) [5]

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

---

← →
TankMan ©   (2002-11-06 21:03) [6]

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

---

← →
Alex4444444444   (2002-11-06 21:31) [7]

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-07 02:33) [8]

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

---

← →
Alex4444444444   (2002-11-07 11:02) [9]

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 17:32) [10]

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

---

Страницы: 1 вся ветка

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



Память: 0.47 MB
Время: 0.011 c