Grauschleier über den Desktop legen - wie?

[Uwe Raabe]

Geht auch noch einfacher:

Delphi-Quellcode:

var
  Back: TForm;
begin
  Back := TForm.Create(nil);
  try
    Back.Position := poDesigned;
    Back.BorderStyle := bsNone;
    Back.AlphaBlend := true;
    Back.AlphaBlendValue := 192;
    Back.Color := clBlack;
    Back.SetBounds(0, 0, Screen.Width, Screen.Height);
    Back.Show;

    // do here whatever has to be done

  finally
    Back.Free;
  end;
end;

Vorteil: man kann auf den grauen Desktop noch ein anderes Form legen.