procedure TForm1.FormShow(Sender: TObject);beginstatusbar1.SimpleText:='tertata';Form1.Update;end;结果statusbar还是没有显示任何内容?