Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.07.2010, 13:58   #41
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

Цитата:
Сообщение от phphel Посмотреть сообщение
Ну к примеру просто создать форму, кнопку на ней, и при нажатии
мы выбираем файл курсора, .ani или .cur и в TImage1 заносится изображение этого курсора, желательно было бы что бы ani был анимированный...правда думаю с простым TImage такого эффекта не добиться..
А может проще во время выбора менять курсор, чтоб нагляднее было ?
Никогда не знаешь, где тебе повезет... (Фрай)
DIgorevich вне форума Ответить с цитированием
Старый 26.07.2010, 14:05   #42
phphel
Форумчанин
 
Аватар для phphel
 
Регистрация: 12.07.2010
Сообщений: 249
По умолчанию

DIgorevich. он меняется при OnChange в checkbox, но хотелось бы также рядом с именем поставить саму картинку курсора.
Moonquake
phphel вне форума Ответить с цитированием
Старый 26.07.2010, 14:13   #43
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

Все-таки не помогу как-то туго с этим.
Никогда не знаешь, где тебе повезет... (Фрай)
DIgorevich вне форума Ответить с цитированием
Старый 26.07.2010, 14:28   #44
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

В общем получить значки курсоров можно так:
Код:
Var
  h: THandle;
Begin
   h := LoadImage(0,
    path,//это та переменная, которая у тебя определяет путь к курсорам.
    IMAGE_CURSOR,
    0,
    0,
    LR_DEFAULTSIZE or
    LR_LOADFROMFILE
    );

    image1.Picture.Icon.Handle:=h;
end;
Никогда не знаешь, где тебе повезет... (Фрай)
DIgorevich вне форума Ответить с цитированием
Старый 26.07.2010, 14:29   #45
phphel
Форумчанин
 
Аватар для phphel
 
Регистрация: 12.07.2010
Сообщений: 249
По умолчанию

Эх жаль. но все равно огромное спасибо
Moonquake
phphel вне форума Ответить с цитированием
Старый 26.07.2010, 14:31   #46
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

Цитата:
Сообщение от phphel Посмотреть сообщение
Эх жаль. но все равно огромное спасибо
жаль что? я же вывел все-таки курсор в картинку (смотри пост выше)
Никогда не знаешь, где тебе повезет... (Фрай)
DIgorevich вне форума Ответить с цитированием
Старый 26.07.2010, 15:07   #47
phphel
Форумчанин
 
Аватар для phphel
 
Регистрация: 12.07.2010
Сообщений: 249
По умолчанию

DIgorevich, не анимация но все пашет, кул, спасибо огромное
Moonquake
phphel вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как задать параметры для всех элементов формы? Klim Bassenger Microsoft Office Excel 2 10.07.2009 15:44
Для массива определить сумму всех элементов, стоящих после максимального HECTOR.A. Паскаль, Turbo Pascal, PascalABC.NET 4 17.06.2009 22:04
Свой курсор в проекте Дельфи Alex Cones Мультимедиа в Delphi 6 08.04.2009 20:29
Как и откуда правильнее загружать свой курсор? spamer Мультимедиа в Delphi 4 01.03.2009 00:14
Свой обработчик ошибок для TImage Aslan Мультимедиа в Delphi 8 29.11.2007 11:54