5,386
社区成员
发帖
与我相关
我的任务
分享请教：透明窗体的问题？
procedure TForm1.Form1Create(Sender:TObject)
begin
borderstyle:=bsNone;
brush.style :=bsClear;
windowstate:= wsMaximized;
end;
后用pen在透明上绘图，如果在不退出程序的情况下，将已绘过图的窗体重新设成透明的且能清除以前所画的一切。
begin
borderstyle:=bsNone;
brush.style :=bsClear;
windowstate:= wsMaximized;
end;
后用pen在透明上绘图，如果在不退出程序的情况下，将已绘过图的窗体重新设成透明的且能清除以前所画的一切。
...全文
请发表友善的回复…
发表回复
1nbud 2002-04-23
- 打赏
- 举报
你可以创建一个TBitmap对象，然后把初始的屏幕内容保存起来！
