显示没有,我一般是设置一个变量bFirst
OnFormCreate bFirst := True;
OnFormShow中 
if bFirst then
begin
  bFirst := False;
  // do something;
end;
不知道大家有和其他的办法.