Home

Page 343
Page 343
background image

 Глава 7

 ;

DesktopHandle :

 0, 0 );

end;

Код похож на тот, что мы уже использовали. Только здесь мы посылаем ко-

манду

 которая заставляет удалить все элементы. По-

пробуйте выполнить эту команду, и весь рабочий стол станет девственно
чистым, как будто на нем ничего никогда не было.

Ну а теперь самое интересное — перемещение ярлыков по экрану. Для реа-

лизации этого эффекта поместим на форму еще одну кнопку с заголовком

Переместить. В обработчике события

 этой кнопки вставим следую-

щий код:

procedure

 TObject);

begin

DesktopHandle

 nil);

DesktopHandle

DesktopHandle :  GetWindow(DesktopHandle,

 0,

 100));

end;

Здесь посылается сообщение SendMessage со следующими параметрами:

 Указатель на окно, содержащее элементы. Мы этот указатель нашли

в начале процедуры.

 — константа, которая указывает на необходимость

изменить позицию ярлыка.

 о — надо переместить нулевой ярлык, но вы можете переместить и пер-

вый, и второй, в общем, любой ярлык.

 Новые координаты ярлыка. Этот параметр нужно создать с помощью

функции

 которой в данном случае передается два параметра:

х и Y — координаты ярлыка.

И чтобы окончательно разработать эту тему, поместим на форму еще одну

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

var

begin

DesktopHandle :=

 nil);


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.