AlphaBlend verstellen

[Luckie]

Hol dir das handle und dann:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Set WS_EX_LAYERED on this window
  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

  // Make this window 70% alpha
  SetLayeredWindowAttributes(Handle, 0, trunc((255 * 70) / 100), LWA_ALPHA);
end;

Dies macht das nur für das Fenster mit dem Button. Für Handle musst du eben das Handle des entsprechenden Fensters einsetzten.