| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не происходит смена курсора [D7, NT4, Win2k, WinXP]
OlegM © (2005-09-28 09:58:00)Привет всем!
Такая проблемка гружу свои курсоры, сразу навешиваю один, и нужно чтобы при событии 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;
что тут не так???
OlegM (2005-09-28 11:35:00) [1]Ну что мне сказать... СПАСИБКИ!
dmitry501 (2005-09-28 10:01:00) [2]Может все-таки не Image.Cursor а Screen.Cursor ?
| |
