Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

paradox01 © (2007-02-21 11:38:00)
Как изменить курсор при одновременном нажатии <ctrl>+<LeftMouseButton>. Событие OnMouseDown меняет курсор только при отпускании кнопки Mouse.

RASkov (2007-02-22 20:36:00) [1]
> [7] paradox01 (22.02.07 17:25)

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

paradox01 (2007-02-22 17:25:00) [2]
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 14:20:00) [3]
> [5] paradox01 (22.02.07 13:53)

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

paradox01 (2007-02-22 13:53:00) [4]
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 10:25:00) [5]
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;

ЮЮ (2007-02-22 10:17:00) [6]

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

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

paradox01 (2007-02-22 07:07:00) [7]
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?

Loginov Dmitry (2007-02-21 13:27:00) [8]
Меняй Screen.Cursor

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »