Эта статья расскажет вам, как создать такой популярный в современных программах эффект, как "прилипание" окна к краю экрана, когда до него остается небольшое расстояние. Реализуется это, как вы, наверное, догадываетесь, с помощью Win API. Конечно, Win API не содержит функций, которые помогут окну прилапать к краю экрана - нам придется немного разобраться с сообщениями Windows. Обработка сообщений в Delphi реализована посредством событий; событие обычно генерируется в ответ на сообщение Windows, посланное приложению. Несмотря на то, что Delphi обрабатывает огромное количество сообщений, некоторые из них все же "остаются без внимания". Например, мы знаем, что если нашей программе нужно обработать изменение размера формы, то мы пишем обработчик события OnResize - таким образом Delphi обрабатывает сообщение WM_SIZE, но вот как определить, что форма передвигается по экрану? Форма Delphi получает соответствующее сообщение, но не обрабатывает его.
Процесс перетаскивания с помощью мыши информации из одного объекта в другой широко используется в Widows.Можно перемещать файлы между папками, перемещать сами папки и др. Все свойства, методы и события, связанные с процессом перетаскивания, определены в классе TControl, являющегося прародителем всех визуальных компонентов Delphi. Поэтому они являются общими для всех компонентов.
Привет-привет, уважаемый читатель! Я смотрю, повеселиться любишь. Понимаю. Без приколов и не туды, и не сюды. Ладно, не все так печально, если у тебя имеется Delphi и немного мозгов, а еще фантазию не забудь. Я вот чего надумал: содрать рабочий стол в bmp-файл, через реестр сделать этот файл обоями для железного друга, там же (в реестре) заблокировать доступ к свойствам экрана и убрать все значки с рабочего стола. Прикинь, как твои друзья (подруги) будут по крысе тыркать пальцами, сделав при этом изумленный вид, мол, Windows поломался. Ладно, давай за дело. Автор: Margo
