起動時他のUnitのFormShowが開く (ID:14446)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ソースは長すぎてどこまで表示すればいいのか分かりません
が、OnCreateのイベントの中にはOnShowのイベントが実行
される様な記述はしていません。
procedure TMain_Form.FormCreate(Sender: TObject);
var
  i,Count: Integer;
  BaseColor : TColor;
  st:string;
begin
  //未使用のタブシートを見えなくする
  for i:=1 to ComponentCount -1 do
    begin
      if (Components[i] is TTabSheet) then
        begin
        st:=TTabSheet(Components[i]).Caption;
        if pos('TabSheet',st)>0 then
          TTabSheet(Components[i]).TabVisible:=False
        else
          begin
            //ここで表示される順番にタブのCaptionを取得
            Tab_Caption[Count]:=TTabSheet(Components[i]).Caption;
            inc(Count);
          end;
        end;
    end;

//ヒント表示
  Application.OnHint:=DisplayHint;

st:=Tochi_hiyoudai[1];
  {コンポーネントを配列化する}
  for i:=1 to 10 do begin
    DBEdits[i] := FindComponent('DBEdit'+IntToStr(i)) as TDBEdit;
//    buttons[i].tag := i; {ついでに 後の事も考えて tag も設定しておく}
    StringGrid2.ColWidths[i]:= DBEdits[i].Width +5;
    StringGrid2.Cells[i,0]:=Tochi_hiyoudai[i];

end ;
  PageControl1.OwnerDraw:=True;
  Panel1.Visible:=False;
end;

//フォームが表示される時
procedure TMain_Form.FormShow(Sender: TObject);
var i:integer;
begin
  showmessage('test');
 //Filter_Change;
end;
同じことを言っている様で済みません
プログラムが最初に起動したときの動作はフォームをいくつか
配置した時それぞれのOnCreateのイベントだけが実行され
最後にメインのフォームのOnShowのイベントが実行されると
思うのですが、これがそれぞれにフォームのOnCreateのイベント
OnShowのイベントの順に実行されてしまっています。

←解決時は質問者本人がここをチェックしてください。

戻る