Z Zephyr Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-19 #21 要半透明面板的话，cAkk的主页上有一个ExtraPak控件包中有。
P pino Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-25 #23 透明的窗体我也会做，但是仅限于静态的，如 Splash 等 如果要可移动就麻烦多了，我始终没有解决背景（指透明窗口下面的画面）的问题。 举一个详细的问题，就是一个始终浮在顶层的窗口， 如何在背景改变的时候也相应改变，而且如何得到背景改变的消息？ 另外不用自己写透明函数，有现成的Win32 API Alphablend
透明的窗体我也会做，但是仅限于静态的，如 Splash 等 如果要可移动就麻烦多了，我始终没有解决背景（指透明窗口下面的画面）的问题。 举一个详细的问题，就是一个始终浮在顶层的窗口， 如何在背景改变的时候也相应改变，而且如何得到背景改变的消息？ 另外不用自己写透明函数，有现成的Win32 API Alphablend
P prisoner Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-05 #25 我这里有得是朋友bcb得一段代码。。。不过在98吓不好使
O oiwin Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-02 #26 procedure TForm1.FormCreate(Sender: TObject); var l:longint; begin l:=getWindowLong(Handle, GWL_EXSTYLE); l := l Or WS_EX_LAYERED; SetWindowLong (handle, GWL_EXSTYLE, l); SetLayeredWindowAttributes (handle, 0, 180, 2); //180是透明度,可让它从100增到155
procedure TForm1.FormCreate(Sender: TObject); var l:longint; begin l:=getWindowLong(Handle, GWL_EXSTYLE); l := l Or WS_EX_LAYERED; SetWindowLong (handle, GWL_EXSTYLE, l); SetLayeredWindowAttributes (handle, 0, 180, 2); //180是透明度,可让它从100增到155
