如何創建具有自定義對齊過程的組件？

Question

我想創建一個組件，但我不滿意Align工作方式，所以我想創建自己的屬性以完全不同的方式重新定位組件。 但我不確定在哪裏與它掛鉤 - 它應該在哪裏被調用？

Answer 1

這article由史蒂夫Trefethen，前Borland的開發，展示瞭如何使用alCustom 。

Answer 2

一個快速訪問將覆蓋的setBounds，以確保它是叫你沃爾德必須設置一個比對的其他然後alNone

type 
    TMyButton=Class(Tbutton) 
     procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override; 

    End; 

//.............. 


procedure TForm3.Button1Click(Sender: TObject); 
begin 
    With TMyButton.Create(self) do 
    begin 
     Parent := self; 
     Width := 200; 
     top := 100; 
     Height := 100; 
     align := alCustom; // was alRight thanks to David Heffernan 
    end; 
end; 


{ TMyButton } 

procedure TMyButton.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); 
begin 
    if Assigned(parent) then 
     begin // .. just e.g. 
     ALeft := Parent.Width - Width -100 ; 
     ATop := 100; 
     AHeight := Parent.Height - Atop - 100 ; 
     end; 
    inherited; 

end;