popupmenu的问题

Question

   if
   bsskinPopupMenu1.PopupComponent = bsskindbimage21 then
   begin
bsskindbImage21.Picture.LoadFromFile(OpenPictureDialog1.FileName);
             bsskinDBImage21.Picture.SaveToFile(dir21);
             end
    else
   if
   bsskinPopupMenu1.PopupComponent = bsskindbimage22 then
   begin
bsskindbImage22.Picture.LoadFromFile(OpenPictureDialog1.FileName);
             bsskinDBImage22.Picture.SaveToFile(dir22);
              end
    else
   if
   bsskinPopupMenu1.PopupComponent = bsskindbimage23 then
   begin
bsskindbImage23.Picture.LoadFromFile(OpenPictureDialog1.FileName);
             bsskinDBImage23.Picture.SaveToFile(dir23);
              end
为什么达不到效果啊     在有的控件上弹出来 image不显示图片啊   乱套了都    求高手解释

Answer 1

设个断点跟踪下OpenPictureDialog1.FileName有值么
另外文件格式对么？记得delphi6,7里标准的image是不支持jpg的

Answer 2

procedure TForm1.N1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
  if bsskinPopupMenu1.PopupComponent = bsskindbimage21 then
  begin
    bsskindbImage21.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    bsskinDBImage21.Picture.SaveToFile(dir21);
  end
  else if bsskinPopupMenu1.PopupComponent = bsskindbimage22 then
  begin
    bsskindbImage22.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    bsskinDBImage22.Picture.SaveToFile(dir22);
  end
  else if bsskinPopupMenu1.PopupComponent = bsskindbimage23 then
  begin
    bsskindbImage23.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    bsskinDBImage23.Picture.SaveToFile(dir23);
  end;
 end;
end;有显示图片啊!!!

Answer 3

所以我才说让LZ查OpenPictureDialog1.FileName有值么还有打开的图片格式是否正确啊