[nbstudio]

Допустим у меня есть свой файл cursor.cur который будет лежать в папке с прогой. И нужно, при наведении на форму чтоб вместо системного отображался этот курсор. Помогите кто че знает!

[lmikle]

1. Создаешь ресурс с твоим курсором и компилишь его в res-файл.
2. Загрузка курсора:

Код:

const
  crHandFlat = 5;
  crHandGrab = 6;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // Load additional cursors
  Screen.Cursors[crHandFlat] := LoadCursor(HInstance, 'HandFlat');
  Screen.Cursors[crHandGrab] := LoadCursor(HInstance, 'HandGrab');
end;

3. Использование:

Код:

Screen.Cursor := crHandGrab;
Self.Cursor := crHandFlat;

[nbstudio]

Я долговато втыкал на этот код и тут у меня появилось пара вопросов. Короче, как и чем скомпилить этот самый res-файл, и второе: какое у него должно быть имя? И что значит flat и grab?

[lmikle]

1. C помощью штатного дельфевого ImageEditor'а Просто создай проект ресурса - res.
2. Имя - любое. Он должен быть с расширением .res
3. flat и grab - это просто имена констант. У меня это раскрытая рука и закрытая - для перетаскивания объекта на экране.

Да, еще надо этот файл подключить с помощью специальной директивы:

Код:

{$R "MyResFile.res"} // вот здесь указывается имя файла с ресурсами.

[Страдалецъ]

Если у вс не D7 а что-то поновее, то там уже этого редактора нету. Надо выкачать альтернативу - каковой является ResourceBuilder,XN Resource Editor и т.д.

[nbstudio]

у меня Delphi7, Delphi2005 и Delphi2009 на одном компе ! Ну я сделал файл res с курсором, написал все в делфи, а как теперь сделать чтоб при наведении мышки на компонент Image курсор менялся на мой? Че то недогоняю!