TImages Orginazieren

[Hawkeye219]

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