Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

Не происходит смена курсора   Найти похожие ветки 

← →
OlegM   (2005-09-28 09:58) [0]

Привет всем!
Такая проблемка гружу свои курсоры, сразу навешиваю один, и нужно чтобы при событии OnMouseDown менялся на другой, а при событии OnMouseUp снова на первый, и неменяеться ну никак!!!


procedure TMain.FormCreate(Sender: TObject);
var
 h1,h2: hcursor;
begin
 h1 := LoadCursorFromFile(PChar(ExtractFilePath(Application.EXEName)+"cursor\1.cur"));
 h2 := LoadCursorFromFile(PChar(ExtractFilePath(Application.EXEName)+"cursor\2.cur"));
 Screen.Cursors[1] := h1;
 Screen.Cursors[2] := h2;
 Image.Cursor := 1;
end;

procedure TMain.ImageMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Image.Cursor := 2;
end;

procedure TMain.ImageMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Image.Cursor := 1;
end;


что тут не так???

---

← →
dmitry501 ©   (2005-09-28 10:01) [1]

Может все-таки не Image.Cursor а Screen.Cursor ?

---

← →
OlegM   (2005-09-28 11:35) [2]

Ну что мне сказать... СПАСИБКИ!

---

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

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.027 c