Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

screen saver


creepster ©   (2001-12-17 18:09:00) 

кто знает, как создать самую простую заставку?


lse Serg   (2001-12-17 18:34:00) [1]

Взато из FAQ
Для создания Screen Saver:


A) В проектном файле (* .dpr) напишите {$D SCRNSAVE <saver name>}
после Uses;

B) Hа главной форме выключите Border и иконки. Установите свойства Left и
Top в 0, WindowState в wsMaximize.

C) В обработчике события OnCreate, установите Application.OnMessage на
процедуру деактивации Screen saver. Установите Application.OnIdle на
любую процедуру для рисования на экране.

D) В обработчике OnCreate должна проверяться командная строка на наличие
ключей /c и /s. Эти параметры определяют, нужно ли запускать сам Screen
Saver или его конфигурацию (/c - конфигурация).

E) Скомпилируйте программу и переименуйте из .exe в .scr ; поместите файл
в каталог Windows - Screen Saver должен появиться на панели управления
(Control Panel).


Наверх

Титульная страница Поиск, карта сайта Написать письмо