怎样使FORM窗体透明？？？

rehuo 2001-05-08 03:45:00

怎样使FORM窗体透明？？？
要求有源码，并且在拖动时，能做到时时透明！！！
grzzm@163.net

...全文

379 41 打赏收藏转发到动态举报

写回复

用AI写文章

41 条回复

切换为时间正序

请发表友善的回复…

发表回复

bailee 2001-05-22

打赏
举报

HarryZhang(Harry)已经说了，我就不用多说了，给分吧

rehuo 2001-05-22

打赏
举报

没人了吗？

rehuo 2001-05-22

打赏
举报

哎。。。
大哥，我自己的法子已经可以了！！至于刷新问题，还是有的，没有解决啊！
算了！
我再问一个问题：可不可以使窗体上的控件透明？？？？我想很可能要使用API函数，但是是什么函数呢？
因为我要在网页上使用ACTIVEFORM，但是他的背景不和网页背景一致，并且控件的背景色也很难看，所以我想让他们都变成透明的。怎么解决？？？？？？？？？？
解决了，有高分啊！

rehuo 2001-05-18

打赏
举报

wk,人都到那里去了！！！！
这么多分还不够高手的胃口吗？

rehuo 2001-05-16

打赏
举报

wk,人都到那里去了！！！！
这么多分还不够高手的胃口吗？

rehuo 2001-05-14

打赏
举报

哎.....
csdn的人呢？？？？？
没有办法！
看来只有再加分了！！！！

rehuo 2001-05-14

打赏
举报

wk,怎么没有人了？？？！！！
这么多分！！

rehuo 2001-05-14

打赏
举报

rehuo 2001-05-14

打赏
举报

我在前面已经贴过了！！！
一、使用这个方法对于原生WINDOW程序是一点问题也没有的，但是对于在网页上实现就有些问题。我在网页的WINDOW_ONLOAD事件中调用ACTIVEFORM的方法来实现窗体的透明，一装载时，并不透明，但刷新一次就可以了。为什么会这样？？？怎么解决？？？？
二、可不可以使窗体上的控件透明？？？？我想很可能要使用API函数，但是是什么函数呢？
因为我要在网页上使用ACTIVEFORM，但是他的背景不和网页背景一致，并且控件的背景色也很难看，所以我想让他们都变成透明的。怎么解决？？？？？？？？？？
我只能加到这么多了，不能再加了！！！

3nt 2001-05-14

打赏
举报

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
FullRgn,
ClientRgn,
ControlRgn: THandle;
Margin,
MarginX,
MarginY,
X,
Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
MarginX := Margin;
MarginY := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(MarginX, MarginY, MarginX + ClientWidth, MarginY + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);

for I:=0 to ControlCount-1 do
begin
X := MarginX + Controls[I].Left;
Y := MarginY + Controls[I].Top;
ControlRgn := CreateRectRgn(X, Y, X + Controls[I].Width, Y + Controls[I].Height);
CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
end;

SetWindowRgn(Handle, FullRgn, True);

end;