Сразу менять курсор...

← →
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;

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

← →
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).

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

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