Новые книги

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

Книга, посвященная рекламе салонов красоты, выходит впервые на территории СНГ.

Автор – Владислав Вавилов, бизнес-тренер, ведущий консультант в индустрии красоты и фитнеса, политический и общественный деятель.
Анна Левченко – создатель Всероссийского центра мониторинга опасного и запрещенного законом РФ контента, руководитель движения «Безопасное детство», помощник уполномоченного по правам ребенка при Президенте РФ, инициатор сетевого движения «Сдай педофила!».

Интернет и социальные сети давно прочно вошли в нашу жизнь. Сегодня практически у каждого ребенка есть аккаунты в соцсетях. Но бесконтрольный доступ к интернету для несовершеннолетних может обернуться трагедией. Каждому третьему ребенку в России приходилось сталкиваться с педофилами в Сети. Как защитить ребенка от угроз и что делать, если все-таки предотвратить трагедию не удалось? Что нужно сделать в первую очередь? Куда бежать, кому жаловаться? Ответы на эти вопросы вы найдете на страницах моей книги.

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

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


      24. Можно ли получить позицию курсора в компоненте TMemo?

      В компоненте TMemo предусмотрено получение позиции курсора через механизм сообщений. Для получения позиции необходимо послать два сообщения. Первое -

      LineNum := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);

      для получения номера строки в которой находится курсор. И второе -

      CharNum := Memo1.Perform(EM_LINEINDEX, LineNum, 0);

      для получения позиции курсора в заданной строке. Будте внимательны, так как номер строки и позиция в строке отсчитываются от нуля.

      Пример:

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

      {Получаем позицию курсора при щелчке мыши на компоненте}
      procedure TForm1.Memo1Click(Sender: TObject);
      VAR

        LineNum : LongInt;
        CharNum : LongInt;

      begin

        {Получаем номер строки}
        LineNum := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
        {Получаем позицию в строке}
        CharNum := Memo1.Perform(EM_LINEINDEX, LineNum, 0);
        {Выводим позицию на экран}
        Label1.Caption := IntToStr(LineNum+1)+' : '+

          IntToStr((Memo1.SelStart-CharNum)+1);

      end;

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

      {Получаем позицию курсора при отпускании клавиши на клавиатуре}
      procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
      begin

        Memo1Click(Self);

      end;

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


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



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