Z последовательность компанентов

← →
Dmitriy O. © (2003-10-13 07:59) [0]

Как определить Z последовательность компанентов на форме во время выполнения программы. Или хотябы узнать верний компанент или нижний. (во время работы может быть BringToFront и SendToBack)

← →
MBo © (2003-10-13 08:44) [1]

Z- порядок контрола есть его индекс в списке Controls парента

← →
Dmitriy O. © (2003-10-13 09:07) [2]

Как узнать индекс в списке Controls парента ?

← →
MBo © (2003-10-13 09:15) [3]

обойти список.

← →
Zergling © (2003-10-13 09:21) [4]

Button1.ComponentIndex не оно?

нет, нужен ControlIndex, но такого не предоставлено.

> MBo © (13.10.03 09:30) [5]
> нет, нужен ControlIndex, но такого не предоставлено.

function IndexOfControl(AParent : TWinControl; AControl : TControl) : Integer;
var
I : Integer;
begin
Result := -1;
for I:-0 to Pred(AParent.ControlCount) do
if Parent.Controls[I] = AControl then begin
Result := I;
Break;
end;
end;

Z последовательность компанентов Найти похожие ветки