| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Страницы:   < 1 2 >

foreverDelphi ©   (2007-10-07 14:00:00) 

подскажите пожалуйста, почему не изменяется курсор на нужный и как ето исправить?

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 down:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if down then begin form1.Cursor:=crDrag;
 down:=false;
 end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 downs:=false;
end;

---

foreverDelphi   (2007-10-07 14:39:00) [21]

> engine ©   (07.10.07 14:12) [1]
>
> procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
>  X,
>  Y: Integer);
> begin
> if ssRight in Shift then
>      Cursor := crDrag;
>    else
>      Cursor := crDefault;
> end;

курсор будет изменятся при каждом перемещение мыши - не практично так как у меня задача не только изменить курсор
проблема [0] в томчто курсор не меняется хотя Cursor := crDrag выполняется,а изменение курсора происходит только в MouseUP почему-то?

---

engine   (2007-10-07 14:12:00) [22]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
if ssRight in Shift then
     Cursor := crDrag;
   else
     Cursor := crDefault;
end;

---

Страницы:   < 1 2 >

Наверх