VPF::Затемнение рабочего стола - Форум программистов

Addmin

Дата 24.11.2006, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 3.2.2006
Где: сослан в Сибирь

Репутация: нет
Всего: 15

Здравствуйте!

Как можно отвлечь внимание пользователя от Рабочего стола, сконцентрировав его на главном окне программы?

P.S. Если бы можно было сделать Рабочий стол серым, как во время смены стиля WinXP, было бы вообще шикарно.

P.P.S. Никто не знает, где можно взять схематичное изображение мышки типа "вид сверху"?

--------------------

SimpleFit.ru - блог о том, как заниматься спортом нормальным людям
--
Стимул работы в Сибири - комары.

Yanis

Дата 24.11.2006, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Addmin @ 24.11.2006, 17:42

)

Как можно отвлечь внимание пользователя от Рабочего стола, сконцентрировав его на главном окне программы?

Прикольно... А ты уверен, что польлзователь захочет использовать такую программу? Если нужно будет, то внимание ей и так иделят...

Цитата(Addmin @ 24.11.2006, 17:42

)

P.P.S. Никто не знает, где можно взять схематичное изображение мышки типа "вид сверху"?

Ты про это? http://images.google.com/images?hl=en&q=computer+mouse

Добавлено @ 17:19
Ну вообще для этого есть FlashWindowEx, она менее навясчивая чем "заблокированый экран". Рекомендуется использовать её.

--------------------

*щёлк*

Snowy

Дата 24.11.2006, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm;
begin
  if tag <> 0 then Exit;
  f := TForm.Create(Application);
  f.BorderStyle := bsNone;
  f.Ctl3D := false;
  f.BoundsRect := Screen.WorkAreaRect;
  f.Color := clBlack;
  f.AlphaBlend := True;
  f.AlphaBlendValue := 160;
  //f.FormStyle := fsStayOnTop;
  tag := integer(f);
  f.Show; FormStyle := fsStayOnTop;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  f: TForm;
begin
  if Tag = 0 then Exit;
  f := TForm(tag);
  if f = nil then Exit;
  tag := 0;
  f.Free;
end;

Sunvas

Дата 24.11.2006, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Addmin @ 24.11.2006, 16:42

)

Как можно отвлечь внимание пользователя от Рабочего стола, сконцентрировав его на главном окне программы?

А если твоя программа будет запущена когда рабочего стола не видно из-за другого окна? Может просто тебе бы форму разворачивать на весь экран?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Addmin

Дата 24.11.2006, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 3.2.2006
Где: сослан в Сибирь

Репутация: нет
Всего: 15

2_Yanis:

Цитата(Yanis @ 24.11.2006, 17:18

)

На то и работаем. Для правильной работы программы требуется полная концентрация. Идея навеяна вот этим.. Второе задание (в конце).

Цитата(Yanis @ 24.11.2006, 17:18

)

ы про это? http://images.google.com/images?hl=en&q=computer+mouse

Нет, не то. Тут фотки, а хотелось бы схематичное изображение. Но вообще лучше обойтись и без него.

Цитата(Yanis @ 24.11.2006, 17:18

)

Ну вообще для этого есть FlashWindowEx, она менее навяpчивая чем "заблокированый экран". Рекомендуется использовать её.

Расскажи поподробнее, пожалуйста (не понял, какой должна быть переменная pwfi).

2_Snowy: спасибо!

Цитата(Sunvas @ 24.11.2006, 18:54

)

Это, в принципе, вариант. Но нежелательно.

--------------------

SimpleFit.ru - блог о том, как заниматься спортом нормальным людям
--
Стимул работы в Сибири - комары.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »