掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カスケード表示を昇順にするには？ (ID：6150)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 ファイル名を自前でソートして、フォーカスを与える順序を変えるといいです。 画像のファイル名が子ウィンドウの Caption に表示されていると仮定すると 以下のようにします。 uses Unit2; procedure TForm1.DoIt1Click(Sender: TObject); var SL:TStringList; i:integer; begin SL := TStringList.Create; try for i := 0 to MDIChildCount-1 do SL.AddObject(MDIChildren[i].Caption,MDIChildren[i]); SL.Sort; // ソートはつねに昇順 for i := MDIChildCount-1 downto 0 do //昇順 //for i := 0 to MDIChildCount-1 do //降順 TForm(SL.Objects[i]).SetFocus; Cascade; finally SL.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.