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

Как изменить курсор?   Найти похожие ветки 

← →
paradox01   (2007-02-21 11:38) [0]

Как изменить курсор при одновременном нажатии <ctrl>+<LeftMouseButton>. Событие OnMouseDown меняет курсор только при отпускании кнопки Mouse.

---

← →
Loginov Dmitry ©   (2007-02-21 13:27) [1]

Меняй Screen.Cursor

---

← →
paradox01   (2007-02-22 07:07) [2]

Ne pomoglo.

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if (ssCtrl in Shift) and (Button = mbLeft) then Screen.Cursor:=crDefault;
end;

Tak nichego ne menyaet", esli vmesto Screen postavit" Image1 togda tol"ko posle otpuskaniya knopki mousa doet effekt. Kak sdelat" chtoby pri nazhatii menyal kursor?

---

← →
ЮЮ ©   (2007-02-22 10:17) [3]

>  if (ssCtrl in Shift) and (Button = mbLeft) then Screen.
> Cursor:=crDefault;


Ну и где здесь смена? Хотя бы crSQLWait поставил бы :)

---

← →
RASkov   (2007-02-22 10:25) [4]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (ssCtrl in Shift) and (Button = mbLeft) then Screen.Cursor:=crDrag;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor:=crDefault;
end;

---

← →
paradox01   (2007-02-22 13:53) [5]

V inspekore ob"ektov kursor po umolchaniyu postavlen drugoj (ne crDefault). A mne nado chtoby kursor menyalsya pri <CTRL>+<LeftMouseDown>. Vse eto zhelaemogo rezul"tata ne dayut. Kursor menyaetsya posle otpuskaniya knopki Mousa

---

← →
RASkov   (2007-02-22 14:20) [6]

> [5] paradox01   (22.02.07 13:53)

Нука покажи свои Image1MouseDown и Image1MouseUp....
Попробуй вместо crDefault указать явно - например crArrow, или какой тебе надо....

---

← →
paradox01   (2007-02-22 17:25) [7]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (ssCtrl in Shift) and (Button = mbLeft) then Screen.Cursor:=crHandMove;
end;

Umenya Image1MouseUp net! Mne nado prosto pri nazhatii menyalsa kursor. A to kursor menyaetsya pri otpuskanii.

---

← →
RASkov   (2007-02-22 20:36) [8]

> [7] paradox01   (22.02.07 17:25)

А почему у меня сразу меняется?
Правда у меня нет crHandMove, но на crHandPoint прекрасно меняется.

---

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

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



Память: 0.46 MB
Время: 0.028 c