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

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

Что сделать с курсорами? [D7, Win2k]

СЕМЕН ©   (2004-12-16 12:31:00) 

Надо чтоб нажал(и держишь) курсор = -16. Отпустил = crDefault.
Делаю так.

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then    Image1.Cursor:=-16;
end;

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

Не помогает. Подскажите.

---

Семен Сорокин   (2004-12-17 09:53:00) [1]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then begin
  Image1.Cursor := -16;
  Image1.Perform(WM_SETCURSOR, 0, HTCLIENT)
 end
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
 Image1.Cursor := 0;
 Image1.Perform(WM_SETCURSOR, 0, HTCLIENT)
end;

---

  (2004-12-16 14:52:00) [2]

Удалено модератором

---

Наверх