前輩 幾乎所有可視元件均有sendtoback與bringtofront的動作, 它是如何讓物件移動到底層或頂層,很想了解在VCL的內部如何動作,還請各前輩指教 謝謝

procedure TWinControl.SetZOrderPosition(Position: Integer);
var
  I, Count: Integer;
  Pos: HWND;
begin
  if FParent <> nil then
  begin
    if FParent.FControls <> nil then
      Dec(Position, FParent.FControls.Count);
    I := FParent.FWinControls.IndexOf(Self);
    if I >= 0 then
    begin
      Count := FParent.FWinControls.Count;
      if Position < 0 then Position := 0;
      if Position >= Count then Position := Count - 1;
      if Position <> I then
      begin
        FParent.FWinControls.Delete(I);
        FParent.FWinControls.Insert(Position, Self);
      end;
    end;
    if FHandle <> 0 then
    begin
      if Position = 0 then Pos := HWND_BOTTOM
      else if Position = FParent.FWinControls.Count - 1 then Pos := HWND_TOP
      else if Position > I then
        Pos := TWinControl(FParent.FWinControls[Position   1]).Handle
      else if Position < I then
        Pos := TWinControl(FParent.FWinControls[Position]).Handle
      else Exit;
      SetWindowPos(FHandle, Pos, 0, 0, 0, 0, SWP_NOMOVE   SWP_NOSIZE);
    end;
  end;
end;

主要透過 SetWindowPos API 注意一下 POS 的植。 將該物件的Handle (Z Order) 移上或移下 可以看到的是透過 FParent.FWinControls 得知上一個或下一個物件的Handle。 我敘述的有些差，你看一下源碼應該就知道了。 參考

引言: 前輩 幾乎所有可視元件均有sendtoback與bringtofront的動作, 它是如何讓物件移動到底層或頂層,很想了解在VCL的內部如何動作,還請各前輩指教 謝謝

另外一種觀念, 其實這沒有什麼, 因為Delphi沒有Layer圖層的結構, 所以出現的順序完全取決於dfm中的順序, 在dfm中愈先執行的就先被畫出來, 然後一個疊一個畫出來, 所以最簡單的測試, 在一個form中置入三個panel1, panel2, panel3 以滑鼠右鍵選 View as Text 看順序是1,2,3, 這時再改回來 View as Form, 把 Panel2 bring to front, 一樣 View as Text, 可以看到順序 1,3,2排列, 大概就是這樣囉, 不知道我說的是否正確(我有大約測一下)! 發表人 - P.D. 於 2005/04/25 09:49:05

謝謝兩位前輩,看了版主及前輩的提示,似乎只有handle 的物件才能動作, 詢問這個問題主要是我想在 10個label物件的中間一個label(例如第3個) 將其下推一層(到第4層),我用的方法是將前2個推到底層,再將第四個推到底層,再將第三個推到底層,依序再將5~10推到底層,這個方法真是沒有效率, 不知 版主及前輩有無較好的方法?謝謝

事實上本身Delphi 有很好的元件層次機制(Control類) 若該物件為 TwinControl 則必須管理系統的 ZOrder 位置。 若元件為 TControl 類，由於沒有 Handle。 則交由 Parent WinControl 管理。 透過 SetChildOrder(Label2,1); 可以定義該元件的層次。 參考

解決了,版主功力果然深厚,謝謝