Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Вниз
Сразу менять курсор... Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
