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.