什么情况下会出现异常:'can't change visible in OnShow and Onhide

Question

我从来没操作过visible属性阿....
一个窗口,其中有取图片操作,取到图,没上面异常,
一旦取不到图片,就报错.????????   //CurrentExam.ImagePath:='C:\pacs5.5\exe\backimg\';一旦这里没图就完蛋
   if (CurrentExam.ImagePath <> '') and (CurrentExam.ImagePath[length(CurrentExam.ImagePath)]<>'\') then
     CurrentExam.ImagePath:=CurrentExam.ImagePath+'\';                     //得到图像路径
   //返回目录下所有文件名 ,数目
   //CurrentExam.ImagePath:='C:\pacs5.5\exe\backimg\';
    FileBuf:= tstringlist.Create();
    FindFiles(CurrentExam.ImagePath,FileBuf,ImageNum);
//图象数目
  j:=1;
    for i := 1 to ImageNum do
    begin
        //为图像预留空间
      MyImage := TAllImage.Create(scbImageList);
      MyImage.Parent :=scbImageList;
      MyImage.Hint := CurrentExam.ImagePath+FileBuf[i-1];    //图像的提示性文字是该图像的文件名
      MyImage.Filename:=MyImage.Hint;        SPos := scbImageList.VertScrollBar.ScrollPos;
        MyImage.TOP := (i - 1) * 75+25*j -sPos;
        MyImage.Left := 10;
        MyImage.Height := 75;
        MyImage.Width := 100;
        MyImage.Stretch := true;        MyImage.Filename:=MyImage.Hint;
        MyImage.GetFirstFrame;        MyImage.ShowHint := true;
        MyImage.OnClick  := OnImgClick;                  {---加图象到报表中---}
        j:= j + 1;    end;        MyImage.Free;                             //图像显示完毕

Answer 1

SVisibleChanged = 'Cannot change Visible in OnShow or OnHide';procedure TCustomForm.CMShowingChanged(var Message: TMessage);
const
  ShowCommands: array[TWindowState] of Integer =
    (SW_SHOWNORMAL, SW_SHOWMINNOACTIVE, SW_SHOWMAXIMIZED);
var
  X, Y: Integer;
  NewActiveWindow: HWnd;
  CenterForm: TCustomForm;
begin
  if not (csDesigning in ComponentState) and (fsShowing in FFormState) then
    raise EInvalidOperation.Create(SVisibleChanged);

Answer 2

顺藤摸瓜,去看看,delphi的源代码只是个推敲的借鉴.
实际工作中,碰到的问题是它的一些表现,可能还是要具体问题具体分析了.....
大家继续....
procedure TForm1.FormShow(Sender: TObject);
begin
Hide;
end;
俺这个例子最实在了,大家还有什么例子吗?呵呵

Answer 3

自己的猜测 没有实际证明的
MyImage.Filename:=MyImage.Hint;
是不是这个时候MyImage.ShowHint还是false呢
所以有那样的错误呢 凭空想象不要见笑