|
ｿｽ@ｿｽｿｽZ ｿｽIｿｽ[ｿｽ_ｿｽｿｽCｿｽﾓの値ｿｽﾉ設定すｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2005/08/30(ｿｽｿｽ) 20:47:18
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽiZ ｿｽIｿｽ[ｿｽ_ｿｽjｿｽｿｽpｿｽﾉに変ゑｿｽｿｽｿｽ@ｿｽがｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
SetZOrder ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅは最擾ｿｽﾊ・ｿｽﾅ会ｿｽｿｽﾊにゑｿｽｿｽｿｽｿｽﾚ難ｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽCｿｽﾓの位置ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽﾈにとゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
deldel 2005/09/01(ｿｽｿｽ) 14:29:56
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌオｿｽ[ｿｽ_ｿｽﾍどゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽﾇゑｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽH
ｿｽｿｽｿｽﾌ考ｿｽｿｽｿｽﾅ行ｿｽｿｽｿｽﾎ、BringToFront ｿｽｿｽｿｽｿｽｿｽﾅ済むようｿｽﾈ・ｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2005/09/01(ｿｽｿｽ) 14:43:30
ｿｽｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽﾅゑｿｽ謔ｭｿｽﾈゑｿｽｿｽｿｽｿｽ邇ｿｿｽ竄ｵｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽ ;)
ｿｽCｿｽﾓの擾ｿｽｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾊりすｿｽｿｽｿｽｿｽ 2005/09/01(ｿｽｿｽ) 14:59:35
ｿｽｿｽｿｽｿｽﾈのはどゑｿｽｿｽﾅゑｿｽｿｽｿｽH
ｿｽiｿｽｿｽｿｽ轤ｩｿｽｿｽｿｽｿｽ FZOrder: Integer ｿｽｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽﾆゑｿｽｿｽﾄ追会ｿｽｿｽj
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;
ｿｽｿｽｿｽｿｽ 2005/09/01(ｿｽｿｽ) 17:13:50
ｿｽgｿｽｿｽｿｽ驍ｩｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
protected
TWinControl.SetChildOrder(Child: TComponent; Order: Integer); override;
ｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈクｿｽｿｽｿｽXｿｽｿｽﾂ用ｿｽﾓゑｿｽｿｽﾄ、
SetChildOrderｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽ(Child)ｿｽﾉ、ｿｽIｿｽ[ｿｽ_ｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽ(Order)ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽRｿｽﾉ変ゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽiｿｽCｿｽｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽためゑｿｽｿｽﾄはゑｿｽｿｽﾜゑｿｽｿｽｿｽj
Orderｿｽﾍ、0ｿｽ`Child.Parent.ControlCount - 1 ｿｽﾌ範囲と思ｿｽｿｽｿｽｿｽB
type
TZOrderCtrl=class(TWinControl)
public
SetChildOrder(Child: TComponent; Order: Integer); override;
end;
TZOrderCtrl.SetChildOrder(Child: TComponent; Order: Integer);
begin
inherited SetChildOrder(Child, Order);
end;
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ告具ｿｽｿｽﾞ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2005/09/01(ｿｽｿｽ) 21:30:58
ｿｽｿｽｿｽﾊりすｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽ
ｿｽhｿｽｿｽｿｽsｿｽVｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈ手がｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは具ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBSetChildOrder ｿｽﾍゑｿｽｿｽﾅに趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌは変会ｿｽｿｽｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽﾌで、ｿｽpｿｽrｿｽﾉゑｿｽｿｽｿｽﾄは使ｿｽｿｽｿｽ驛ｿｽ¥ｿｽbｿｽhｿｽﾌようｿｽﾅゑｿｽｿｽB
