如何在不没有升级的 DELPHI 5 中用SetLayeredWindowAttributes();(100分)

varphone · 2001-09-10

如何在不没有升级的 DELPHI 5 中用SetLayeredWindowAttributes();

wjiachun · 2001-09-10

与Delphi5升级不升级没有关系吧？关键是要Win2K才可以。

Kingron · 2001-09-10

声明一下这个API就可以了！ 问题是如果你得程序需要在Win9x和2000中同时使用，那么必须采用动态的方法！ 函数原型如下： function SetLayeredWindowAttributes(Handle : HWND; COLORKEY : COLORREF; Alpha : BYTE; Flags : DWORD) :Boolean;stdcall; external 'USER32.DLL';

xianjun · 2001-09-10

给你看看我以前写的一个FORM里的代码，　在WIN2K下有渐显的效果，在WIN9X下也不会出错： type   TSetLayeredWindowAttributes = function(Handle: THandle; crey, bAlpha: Byte; dwFlags: Integer): LongInt; stdcall;   private     bTrans, FInterval: Byte;     FormClosing: Boolean;     LibHandle: THandle;     SetLayeredWindowAttributes: TSetLayeredWindowAttributes; implementation {$R *.DFM} const   WS_EX_LAYERED = $80000;   LWA_ALPHA = $2; procedure TForm1.TimerTimer(Sender: TObject); begin   if CanTransparent then   begin     if FormClosing then       Dec(bTrans, FInterval)     else       Inc(bTrans, FInterval);     if @SetLayeredWindowAttributes <> nil then       SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);     Timer.Enabled := (bTrans <= 255 - FInterval) and (bTrans >= FInterval);     if not Timer.Enabled and not FormClosing then       if @SetLayeredWindowAttributes <> nil then         SetLayeredWindowAttributes(Handle, 0, 255, LWA_ALPHA);   end; end; procedure TForm1.FormCreate(Sender: TObject); begin   LibHandle := LoadLibrary(user32);   if LibHandle <> 0 then   begin     @SetLayeredWindowAttributes := GetProcAddress(LibHandle, 'SetLayeredWindowAttributes');   end;   FInterval := 8;   if CanTransparent then   begin     SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);     if @SetLayeredWindowAttributes <> nil then       SetLayeredWindowAttributes(Handle, 0, 0, LWA_ALPHA);     Timer.Enabled := True;   end; end; procedure TForm1.FormClose(Sender: TObject;   var Action: TCloseAction); var   C: DWord; begin   if CanTransparent then   begin     FormClosing := True;     FInterval := FInterval * 2;     Timer.Enabled := True;     C := GetTickCount;     while Timer.Enabled and ((GetTickCount - C) < 5000) do       Application.ProcessMessages;   end;   if LibHandle <> 0 then     FreeLibrary(LibHandle); end; function TForm1.CanTransparent: Boolean; begin   Result := (LibHandle <> 0) and (@SetLayeredWindowAttributes <> nil); end;

varphone · 2001-09-18

Thanks a lot of you!

如何在不没有升级的 DELPHI 5 中用SetLayeredWindowAttributes();(100分)

varphone

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

varphone

Unregistered / Unconfirmed

Similar threads