Как сделать форму прозрачной

[Dr.Snipper]

см. заголовок

[x77]

смотря под какой виндой прозрачной. под nt или xp достаточно выставить AlpaBlend = TRUE и задать BlendValue от 0 (прозрачно полностью) до 255 (непрозрачно).

под 98 надо извращаться: при каждой перерисовке "тушить" форму, запоминать рисунок под ней, восстанавливать, и в отрисовке "микшировать" запомненный рисунок бэкграунда с текущим изображением формы. довольно геморройно, и работает это более/менее прилично только на относительно быстрых машинах с палитрой экрана не менее 16k (на 256 цветах будет полный отстой).

но это только для форм с "регулируемой прозрачностью", т.е. через форму просвечивают окна под ней.

если же надо создать абсолютно прозрачное окно, то всё проще - достаточно при создании формы поднять флаг WS_EX_TRANSPARENT. делается это переопределением соответствующего метода - CreateParams.

Код:

type
  TForm1 = class)TForm:
    Button1{ TButton;
    procedure FormCreate)Sender{ TObject:;
  private
    | Private declarations "
  public
    | Public declarations "
    procedure CreateParams )var Params{ TCreateParams:; override;
  end;

var
  Form1{ TForm1;

implementation

|$R *.dfm"

procedure TForm1.CreateParams)var Params{ TCreateParams:;
begin
  inherited;
  Params.ExStyle {= Params.ExStyle + WS_EX_TRANSPARENT;
end;