Oberfläche
Halbtransparente Form erstellen
Erst ab Windows 2000 funktioniert dieses Beispiel :
const
LWA_ALPHA = $2;
WS_EX_LAYERED = $80000;
function SetLayeredWindowAttributes (const hWnd : HWND; crKey : Intege
r; bAlpha : Byte; dwFlags : Integer) : Integer; stdcall; external 'use
r32.dll';
procedure TForm1.FormCreate(Sender: TObject);
var
temp : Integer;
begin
temp := GetWindowLong(Handle, GWL_EXSTYLE);
temp := temp or WS_EX_LAYERED;
SetWindowLong(Handle, GWL_EXSTYLE, temp);
SetLayeredWindowAttributes(Handle, 0, 200, LWA_ALPHA);
end;
Eindeutige ID: #1114
Verfasser: Rolf Warnecke
Letzte Änderung: 2004-09-12 11:45
Seite 1 / 1
(c) 2016 Rolf Warnecke <[email protected]> | 2016-07-04 18:32
URL: http://code-orakel.de/content/35/115/de/halbtransparente-form-erstellen.html
Powered by TCPDF (www.tcpdf.org)