Новые книги

Эта книга содержит рекомендации и методы, основанные на научных исследованиях, экспериментах, опросах потребителей и статистики. Автор использует знания из математики, социальной психологии, меметики и других наук и объясняет, почему и, что еще важнее, каким образом следует адаптировать для достижения максимальных результатов свои стратегии интернет-маркетинга: ведение блога, присутствие в соцсетях, почтовый маркетинг и вебинары.

На русском языке публикуется впервые.
Новая книга об HR-брендинге основана на проектах победителей и номинантов «Премии HR-бренд 2013». Помимо лучших практик от лучших работодателей России, а также результатов российских и международных исследований в книгу вошли уникальные материалы – интервью с наиболее профессиональными и эффективными HR-командами, подробно рассказывающими о собственных разработках, которые удостоились Премии, и роли HR в современном бизнесе.

Как определить свои целевые аудитории на рынке труда? Как мотивировать рядовых сотрудников на достижение амбициозных целей компании? Как удержать лучших специалистов? Каким образом средний бизнес может выиграть в конкурентной борьбе с крупными компаниями за перспективную молодежь?

Ответы на эти вопросы читатель найдет, ознакомившись с представленными здесь программами. Компании, реализовавшие их, уже получили впечатляющие результаты в снижении издержек и повышении эффективности работы. Своим опытом делятся Coca-Cola Hellenic, Mars, Nokian Tyres, «МегаФон», Независимая лаборатория ИНВИТРО, ОБИ, «Эльдорадо» и многие другие.

В электронную версию добавлены новейшие данные опросов среди компаний о размерах HR-бюджетов и использовании digital-инструментов, а также советы экспертов Консалтингового центра HeadHunter о специфике развития HR-бренда в условиях ограниченных бюджетов и острой конкуренции.

Издание будет полезно HR-специалистам, маркетологам и руководителям всех уровней.

Положение курсора в МЕМО




Как выяснить положение курсора в МЕМО?

Необходимо вызвать дважды API-функцию "SendMessage":

var 
  xChr, 
  xRow, 
  xCol: LongInt;
...

xRow := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
xChr := SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0);
xCol := Memo1.SelStart - xChr + 1;


Оглавление