掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Z オーダを任意の値に設定するには？ (ID:17331)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなのはどうでしょ？ （あらかじめ FZOrder: Integer をフィールドとして追加） function ZOrderCompare(Item1, Item2: Pointer): Integer; begin Result:= TCmp(Item1).FZOrder - TCmp(Item2).FZOrder; end; procedure TCmp.SetZOrderPosition(Value: Integer); var i: Integer; AList: TList; begin FZOrder:= Value; AList:= TList.Create; try for i:=0 to Owner.ControlCount-1 do if Owner.Controls[i] is TCmp then AList.Add(Owner.Controls[i]); AList.Sort(ZOrderCompare); for i:=0 to AList.Count-1 do begin TCmp(AList[i]).BringToFront; end; finally AList.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.