var TempForm:TForm;
begin
TempForm:=TForm.Create(nil);
TempForm.AlphaBlend:=true;
TempForm.AlphaBlendValue:=100;
TempForm.Left:=0;
TempForm.Top:=0;
TempForm.Show;
end;
创建一个透明窗体,没任何问题,
现在想把这个窗体附着在 RzPanel1上,多加一句代码:
var TempForm:TForm;
begin
TempForm:=TForm.Create(nil);
TempForm.AlphaBlend:=true;
TempForm.AlphaBlendValue:=100;
TempForm.Left:=0;
TempForm.Top:=0;
TempForm.Parent:=RzPanel1;//多加的代码
TempForm.Show;
end;
这样窗体是附着在RzPanel1上了,但是不透明了,不知道怎样解决,谢谢!
begin
TempForm:=TForm.Create(nil);
TempForm.AlphaBlend:=true;
TempForm.AlphaBlendValue:=100;
TempForm.Left:=0;
TempForm.Top:=0;
TempForm.Show;
end;
创建一个透明窗体,没任何问题,
现在想把这个窗体附着在 RzPanel1上,多加一句代码:
var TempForm:TForm;
begin
TempForm:=TForm.Create(nil);
TempForm.AlphaBlend:=true;
TempForm.AlphaBlendValue:=100;
TempForm.Left:=0;
TempForm.Top:=0;
TempForm.Parent:=RzPanel1;//多加的代码
TempForm.Show;
end;
这样窗体是附着在RzPanel1上了,但是不透明了,不知道怎样解决,谢谢!
解决方案 »
- 如何实现时间 hh:mm:ss的录入?
- 全局 SendMessage(HWND_BROADCAST ,WM_USER + 101,101,0),WindowProc接收不到,该怎么写?
- 如何与一个页面做交互
- dll作为MID子窗,但MDI主窗体关闭时报内存无效错误..郁闷死了
- 想要获取一个字符在另一个字符串中出现的次数用哪个函数?
- 请问如何删除新建的delphi工程自带的资源图片内容?
- 关于Query查询的问题
- 关于网络信使服务的问题,欢迎继续跟贴,300分相送,完了后继续另起贴字给分!!!!
- 怎么评价对一门语言是否精通了呢!有人说很熟,有人说 差不多,到里用什么来评价呢
- 81分,只有这仫多了,以后再补上可不可以?
- stdcall
- 在DBGrid的标题栏中加中文标题的问题
你去看下RzPanel1的重绘代码
你的panel又不透明