delphi - Haga clic a través de forma transparente

Question

Tengo un formulario de pantalla completa semi transparente y necesito controlar mi computadora en este formulario.

Actualmente, necesitamos un filtro de pantalla roja en la computadora para observar el cielo, pero no queremos usar algo como plexiglás rojo.

Intenté las API de Windows (Funciones de configuración del monitor) http://msdn.microsoft.com/en-us/library/windows/desktop/dd692964(v=vs.85).aspx pero no puedo hacerlo. Hice la forma transparente como filtro rojo (todo parece rojo y tonos negros), pero no puedo controlar la computadora sobre mi formulario. ¿Alguien me ayuda con eso?

Answer 1

Crea un nuevo proyecto de VCL. En las propiedades de la forma principal, establezca Color en clRed , AlphaBlend en true , AlphaBlendValue en 127 , WindowState en wsMaximized , FormStyle en fsStayOnTop y agregue el siguiente código:

type
  TForm1 = class(TForm)
  private
  protected
    procedure CreateParams(var Params: TCreateParams); override;

...

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_LAYERED or WS_EX_TRANSPARENT;
end;

( Video de muestra , EXE compilado de muestra , Fuente )