Новые книги

Умение хорошо писать – не врожденный дар, а навык, который можно развивать, подобно многим другим. Книга, которую вы держите в руках, поможет вам приобрести необходимую уверенность и снабдит инструментами, которые понадобятся для совершенствования этого навыка.

Книга будет полезна для всех, кому приходится писать электронные письма, коммерческие предложения, отчеты, доклады и т. п.

На русском языке публикуется впервые.
Эта книга – учебное пособие по созданию и ведению интернет-бизнеса. В ней рассказывается о том, что такое интернет-проект, какие существуют виды и структуры интернет-проектов. Вы ознакомитесь с новыми бизнес-моделями; узнаете, как выбрать нишу, которая будет востребованной и принесет прибыль; научитесь составлять структуру продающего сайта, работать с трафиком и запускать email-рассылку. Кроме того, книга подскажет, как создать команду и каким должен быть менеджер по продажам в вашем бизнесе. В конце книги вы найдете советы и рекомендации по масштабированию и автоматизации онлайн-бизнеса, которые помогут вам так организовать бизнес, чтобы он увеличивал оборот и отлично работал без вашего непосредственного участия.

Поэтому читайте и применяйте! И тогда мы скажем вам: «Добро пожаловать в ряды успешных интернет-предпринимателей!»

Вопрос и Ответ 31

Вопросы и Ответы


      31. Можно ли нарисовать курсор мыши как обычную картинку?

      Специальной функции для рисования курсора мыши нет. Но формат данных курсора и иконки одинаков, поэтому, можно воспользоваться функцией рисования иконки, только загружать надо изображение курсора. Для загрузки изображения курсора необходимо воспользоваться функцией:

      function LoadCursor(Instance: THandle; IconName: PChar): HCursor;

      формат ее полностью идентичен функции LoadIcon (см. "Вопрос и Ответ 13").

      Пример:

      Курсор в виде песочных часов выводится в компонент Image1: TImage, который уже размещен на форме.

      ............

      procedure TForm1.FormCreate(Sender: TObject);
      VAR Ico: TIcon;
      begin

        {Создание объекта типа TIcon}
        Ico := TIcon.Create;
        try

          {IDC_WAIT}
          {Загрузка в объект TIcon курсора в виде песочных часов}
          Ico.Handle := LoadCursor(0, PChar(IDC_WAIT));
          {Вывод иконки в компонент Image1}
          Image1.Picture.Graphic := Ico;

        finally

          {Освобождение ресурсов занятых объектом TIcon}
          Ico.Free;

        end;

      end;

      ............


...предыдущая страница следующая...
оглавление



"Вопрос и Ответ 31"
Copyright © "В помощь Веб-Мастеру" (Alexander D. Belyaev) 2005-2024 .
При перепечатке любого материала видимая ссылка на источник "В помощь Веб-Мастеру" и все имена, ссылки авторов обязательны!
Время генерации страницы: 0.006