真郁闷了,同样的代码,设置,就是没效果,该如何解决

真郁闷了,同样的代码,设置,就是没效果

Delphi(Pascal) code

procedure TMainFrm.N1_ChangePortraitClick(Sender: TObject);var  FileStream: TFileStream;begin  if dlgOpenPic1.Execute then  begin    try      FileStream := TFileStream.Create(dlgOpenPic1.FileName, fmopenRead);      FileStream.Position := 0;      if FileStream.Size > 20480 then      begin        MessageBox(Handle, PChar('该图片大于20k!'), PChar(''),          MB_ICONERROR or MB_OK);        Exit;      end;      img_Portrait.Picture.Bitmap.LoadFromStream(FileStream);    finally      FileStream.Free;    end;  end;end;

这个窗体我新放button和image ,并用opendialog.filename载入图片也显示不出来,图片格式肯定对的,只有在设计阶段picture里放图片才行,奇怪的事..

[解决办法]
首先确保你这是有效的BMP图片，比如将一个图片.GIF改成.BMP是不能显示的
[解决办法]
uses jpeg;

img_Portrait.Picture.LoadFromStream(FileStream);

[解决办法]
没看出问题来,用bmp格式的图片试试
[解决办法]
我试了一下有效果啊 怎么没效果 只要是BMP图片
[解决办法]
只好在最后添一行 Self.Height := Self.Height + 1; 解决了

为何不用Self.Repaint

查看更多 下一篇