Затемнение экрана

← →
Максим (2004-05-24 10:35) [0]

Как сделать затемнение экрана? Т.Е. чтобы он медленно становился чёрным цветом.

← →
Думкин © (2004-05-24 10:39) [1]

http://delphimaster.net/view/9-1085278109/

Тебя удалят, а ты правила не нарушай.

← →
ega23 © (2004-05-24 10:44) [2]

Медленно-медленно красить в чёрный цвет...

Попробуй так
procedure DarkScreen;
var
Desktop: TCanvas;
begin
Desktop:=TCanvas.Create;
Desktop.Handle:=GetDC(0);
while true do
begin
Yield;
Desktop.Pixels[Random(1024), Random(768)]:=0;
end;

Затемнение экрана Найти похожие ветки