Hallo,
leider haben die
VCL-Macher keinen direkten Aufruf der entsprechenden Routine vorgesehen. Mit einem nicht ganz
OOP-konformen Zugriff auf die
protected Methode SetChildOrder geht es so:
Delphi-Quellcode:
type
TWinControlShadow = class (TWinControl);
procedure SetControlIndex (aControl: TControl; aIndex: Integer);
begin
with TWinControlShadow(aControl.Parent) do
if (aIndex > 0) then
SetChildOrder (aControl, ControlCount - aIndex)
else if (aIndex < 0) then
SetChildOrder (aControl, -aIndex - 1);
end;
Ein positiver Indexwert gibt die k-te Position von oben an; das oberste Element ist also an Position 1.
Ein negativer Indexwert kennzeichnet die k-te Position von unten; das unterste Element ist also an Position -1.
Gruß Hawkeye