Как изменить курсор?

← →
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 прекрасно меняется.

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