delphi 在窗體加入圖片的源代碼

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上，投機了 呵呵