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;