delphi 在窗体加入图片的源代码
就是我点一个“背景图片”的按钮后,会在我的窗体出现一个图片把所有控件都盖住了,就好像是个屏幕保护一样...
就是我点一个“背景图片”的按钮后,会在我的窗体出现一个图片把所有控件都盖住了,就好像是个屏幕保护一样
展开
1个回答
展开全部
var lImage:TImage;
lPanel:TPanel;
begin
lImage:= TImage.Create(self);
lPanel:= TPanel.Create(self);
try
lPanel.Parent :=Form1;
lPanel.Align:= alClient;
lImage.Parent := lPanel;
lImage.AutoSize:= True;
lImage.Picture.LoadFromFile('C:\Documents and Settings\user\My Documents\My Pictures\4.bmp');
lImage.Visible:= True;
lImage.BringToFront;
except
lImage.Free;
lPanel.Free;
end;
end;
实际上是panel覆盖了屏幕 我将图片放到了panel上,投机了 呵呵
lPanel:TPanel;
begin
lImage:= TImage.Create(self);
lPanel:= TPanel.Create(self);
try
lPanel.Parent :=Form1;
lPanel.Align:= alClient;
lImage.Parent := lPanel;
lImage.AutoSize:= True;
lImage.Picture.LoadFromFile('C:\Documents and Settings\user\My Documents\My Pictures\4.bmp');
lImage.Visible:= True;
lImage.BringToFront;
except
lImage.Free;
lPanel.Free;
end;
end;
实际上是panel覆盖了屏幕 我将图片放到了panel上,投机了 呵呵
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询