实现跟设置窗口Align属性同等效果的API有没有？速答速结，谢谢大家！ ( 积分: 30 )

YuZi · 2005-08-07

如：实现Align :=alBottom、Align := alLeft的效果的API。

YuZi · 2005-08-07

如：实现Align :=alBottom、Align := alLeft的效果的API。

chenybin · 2005-08-07

好像没有，等下面的人 procedure TWinControl.AlignControls(AControl: TControl; var Rect: TRect); var  AlignList: TList;  function InsertBefore(C1, C2: TControl; AAlign: TAlign): Boolean;  begin    Result := False;    case AAlign of      alTop: Result := C1.Top < C2.Top;      alBottom: Result := (C1.Top + C1.Height) >= (C2.Top + C2.Height);      alLeft: Result := C1.Left < C2.Left;      alRight: Result := (C1.Left + C1.Width) >= (C2.Left + C2.Width);      alCustom: Result := CustomAlignInsertBefore(C1, C2);    end;  end;  procedure DoPosition(Control: TControl; AAlign: TAlign; AlignInfo: TAlignInfo);  var    NewLeft, NewTop, NewWidth, NewHeight: Integer;    ParentSize: TPoint;  begin    with Rect do    begin      if (AAlign = alNone) or (Control.Anchors <> AnchorAlign[AAlign]) then      begin        with Control do          if (FOriginalParentSize.X <> 0) and (FOriginalParentSize.Y <> 0) then          begin            NewLeft := Left;            NewTop := Top;            NewWidth := Width;            NewHeight := Height;            if Parent.HandleAllocated then              ParentSize := Parent.ClientRect.BottomRight            else              ParentSize := Point(Parent.Width, Parent.Height);            if akRight in Anchors then              if akLeft in Anchors then                // The AnchorRules.X is the original width                NewWidth := ParentSize.X - (FOriginalParentSize.X - FAnchorRules.X)              else                // The AnchorRules.X is the original left                NewLeft := ParentSize.X - (FOriginalParentSize.X - FAnchorRules.X)            else if not (akLeft in Anchors) then              // The AnchorRules.X is the original middle of the control              NewLeft := MulDiv(FAnchorRules.X, ParentSize.X, FOriginalParentSize.X) -                NewWidth div 2;            if akBottom in Anchors then              if akTop in Anchors then                // The AnchorRules.Y is the original height                NewHeight := ParentSize.Y - (FOriginalParentSize.Y - FAnchorRules.Y)              else                // The AnchorRules.Y is the original top                NewTop := ParentSize.Y - (FOriginalParentSize.Y - FAnchorRules.Y)            else if not (akTop in Anchors) then              // The AnchorRules.Y is the original middle of the control              NewTop := MulDiv(FAnchorRules.Y, ParentSize.Y, FOriginalParentSize.Y) -                NewHeight div 2;            FAnchorMove := True;            try              SetBounds(NewLeft, NewTop, NewWidth, NewHeight);            finally              FAnchorMove := False;            end;          end;        if AAlign = alNone then Exit;      end;      NewWidth := Right - Left;      if (NewWidth < 0) or (AAlign in [alLeft, alRight, alCustom]) then        NewWidth := Control.Width;      NewHeight := Bottom - Top;      if (NewHeight < 0) or (AAlign in [alTop, alBottom, alCustom]) then        NewHeight := Control.Height;      NewLeft := Left;      NewTop := Top;      case AAlign of        alTop:          Inc(Top, NewHeight);        alBottom:          begin            Dec(Bottom, NewHeight);            NewTop := Bottom;          end;        alLeft:          Inc(Left, NewWidth);        alRight:          begin            Dec(Right, NewWidth);            NewLeft := Right;          end;        alCustom:          begin            NewLeft := Control.Left;            NewTop := Control.Top;            CustomAlignPosition(Control, NewLeft, NewTop, NewWidth,              NewHeight, Rect, AlignInfo);          end;      end;    end;    Control.FAnchorMove := True;    try      Control.SetBounds(NewLeft, NewTop, NewWidth, NewHeight);    finally      Control.FAnchorMove := False;    end;    { Adjust client rect if control didn't resize as we expected }    if (Control.Width <> NewWidth) or (Control.Height <> NewHeight) then      with Rect do        case AAlign of          alTop: Dec(Top, NewHeight - Control.Height);          alBottom: Inc(Bottom, NewHeight - Control.Height);          alLeft: Dec(Left, NewWidth - Control.Width);          alRight: Inc(Right, NewWidth - Control.Width);          alClient:            begin              Inc(Right, NewWidth - Control.Width);              Inc(Bottom, NewHeight - Control.Height);            end;        end;  end;  function Anchored(Align: TAlign; Anchors: TAnchors): Boolean;  begin    case Align of      alLeft: Result := akLeft in Anchors;      alTop: Result := akTop in Anchors;      alRight: Result := akRight in Anchors;      alBottom: Result := akBottom in Anchors;      alClient: Result := Anchors = [akLeft, akTop, akRight, akBottom];    else      Result := False;    end;  end;  procedure DoAlign(AAlign: TAlign);  var    I, J: Integer;    Control: TControl;    AlignInfo: TAlignInfo;  begin    AlignList.Clear;    if (AControl <> nil) and ((AAlign = alNone) or AControl.Visible or      (csDesigning in AControl.ComponentState) and      not (csNoDesignVisible in AControl.ControlStyle)) and      (AControl.Align = AAlign) then      AlignList.Add(AControl);    for I := 0 to ControlCount - 1 do    begin      Control := Controls;      if (Control.Align = AAlign) and ((AAlign = alNone) or (Control.Visible or        (Control.ControlStyle * [csAcceptsControls, csNoDesignVisible] =          [csAcceptsControls, csNoDesignVisible])) or        (csDesigning in Control.ComponentState) and        not (csNoDesignVisible in Control.ControlStyle)) then      begin        if Control = AControl then Continue;        J := 0;        while (J < AlignList.Count) and not InsertBefore(Control,          TControl(AlignList[J]), AAlign) do Inc(J);        AlignList.Insert(J, Control);      end;    end;    for I := 0 to AlignList.Count - 1 do    begin      AlignInfo.AlignList := AlignList;      AlignInfo.ControlIndex := I;      AlignInfo.Align := AAlign;      DoPosition(TControl(AlignList), AAlign, AlignInfo);    end;  end;  function AlignWork: Boolean;  var    I: Integer;  begin    Result := True;    for I := ControlCount - 1 downto 0 do      if (Controls.Align <> alNone) or        (Controls.Anchors <> [akLeft, akTop]) then Exit;    Result := False;  end; begin  if FDockSite and FUseDockManager and (FDockManager <> nil) then    FDockManager.ResetBounds(False);  { D5 VCL Change (ME): Aligned controls that are not dock clients now    get realigned.  Previously the code below was "else if AlignWork". }  if AlignWork then  begin    AdjustClientRect(Rect);    AlignList := TList.Create;    try      DoAlign(alTop);      DoAlign(alBottom);      DoAlign(alLeft);      DoAlign(alRight);      DoAlign(alClient);      DoAlign(alCustom);      DoAlign(alNone);// Move anchored controls      ControlsAligned;    finally      AlignList.Free;    end;  end;  { Apply any constraints }  if Showing then AdjustSize; end; procedure TWinControl.AlignControl(AControl: TControl); var  Rect: TRect; begin  if not HandleAllocated or (csDestroying in ComponentState) then Exit;  if FAlignLevel <> 0 then    Include(FControlState, csAlignmentNeeded)  else  begin    DisableAlign;    try      Rect := GetClientRect;      AlignControls(AControl, Rect);    finally      Exclude(FControlState, csAlignmentNeeded);      EnableAlign;    end;  end; end;

YuZi · 2005-08-07

谢谢chenybin，我看过Delphi中的这些代码，我担心没有这直接实现的ＡＰＩ，比如：通过设置窗口的风格和扩展风格，但没找到。 贴这么多代码可能会把人吓跑了，呵呵，随便说说，别介意。

YuZi · 2005-08-07

晕，怎么给结。。。。。。

实现跟设置窗口Align属性同等效果的API有没有？速答速结，谢谢大家！ ( 积分: 30 )

YuZi

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

Similar threads