was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

30 Visitors Online


 
...die Z-Ordnung von Controls während der Laufzeit verändern?
Autor: Daniel Wischnewski
Homepage: http://www.delphipraxis.net
[ Tip ausdrucken ]  

Tip Bewertung (29):  
     



{
  Sometimes you want to change the order of your controls during runtime.
  Usually you only can send them all the way to the front (Control.BringToFront) or
  send them all the way back (Control.SendToBack).

  The following procedure will help you moving a control just one position for or back.
  This is especially useful when using vector graphis or similar applications.

  The procedure takes the control to be moved as the first parameter.
  The direction is the second parameter (True brings the control one step up,
  False sends it one step back).

  Internally, this procedure works with SendToBack and BringToFront too, however,
  it creates an order list first and pushes the other controls as well.
}

procedure ChangeControlZOrder(Sender: TObject; MoveUp: Boolean = True);
var
  
I, Curr: Integer;
  Control: TControl;
  List: TList;
begin
  if 
Sender is TControl then
  begin
    
// only components of type TControl and descendends
    // work
    
Control := Sender as TControl;
    // has no parent, cannot move ;-)
    
if Control.Parent = nil then
      
// quit
      
Exit;
    // determine position in z-order
    
Curr := -1;
    for I := 0 to Pred(Control.Parent.ControlCount) do
      if 
Control.Parent.Controls[I] = Sender then
      begin
        
Curr := I;
        Break;
      end;
    if Curr < 0 then
      
// position not found, quit
      
Exit;
    List := TList.Create;
    try
      if 
MoveUp then
      begin
        for 
I := Curr + 2 to Pred(Control.Parent.ControlCount) do
          
// load other controls in group
          
List.Add(Control.Parent.Controls[I]);
        Control.BringToFront;
        for I := 0 to Pred(List.Count) do
          
// move other controls to front, too
          
TControl(List[I]).BringToFront;
      end else begin
        for 
I := 0 to Curr - 2 do
          
// load other controls in group
          
List.Add(Control.Parent.Controls[I]);
        Control.SendToBack;
        for I := Pred(List.Count) downto do
          
// move other controls to back, too
          
TControl(List[I]).SendToBack;
      end;
    finally
      
List.Free;
    end;
  end;
end;



 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners