Przezroczysty formularz

Na początku przypiszemy parametrowi BorderStyle utworzonego formularza wartość bsNone. Następnie wystarczy do źródła programu dodać poniższy kod:

type

  TForm1 = class(TForm)

  private

    { Private declarations }

  public

    procedure CreateParams(var Params: TCreateParams); override;

  end;


...


procedure TForm1.CreateParams(var Params: TCreateParams);

begin

  inherited CreateParams(Params);

  Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;

end;

type

TForm1 = class(TForm)

private

{ Private declarations }

public

procedure CreateParams(var Params: TCreateParams); override;

end;

...

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;

end;

Autor: Nakiel