Component positioning to the form/Tpanel center

[christensen]

How to position a component(ex. Timage) to the form/Tpanel center and keep at the center after resizing the form?

[Blaazen]

TImage has property "Center". When I set it to "True" Image keeps centered when I resize form.
In design time, you can create initial centered position by right-click on TImage, select Align ..." and set radiobuttons "Center in Window" for both Vertical and Horizontal.

[christensen]

the center property work, only i haven't set false the Anchors properties.

thanks
 

[christensen]

OK, now i have another problem.
I have 2 forms: Mainform and Childform.(sort of MDI)
The Childform open in the Tpanel of the main form.
On the Childform I have a few components: Tedit,DateEdit,Tcombobox,Tlabel,Tmemo.
How can i setup them to keep there position as best when i resize the Mainform?
I've try to keep at the form center but it looks ugly, especial when the Mainform is resized. The same i've try to align to left,right but still ugly.

[avra]

Code: [Select]

function CenterInParent(Place,NumberOfPlaces,ObjectWidth,ParentWidth,CropPercent: Integer): Integer;
  {returns formated centered position of an object relative to parent.
  Place          - P order number of an object beeing centered
  NumberOfPlaces - NOP total number of places available for object beeing centered
  ObjectWidth    - OW width of an object beeing centered
  ParentWidth    - PW width of an parent
  CropPercent    - CP percentage of safe margin on both sides which we want to omit from calculation
  +-----------------------------------------------------+
  |                                                     |
  |        +--------+       +---+      +--------+       |
  |        |        |       |   |      |        |       |
  |        +--------+       +---+      +--------+       |
  |     |              |             |            |     |
  +-----------------------------------------------------+
  |     |<---------------------A----------------->|     |
  |<-C->|<------B----->|<-----B----->|<-----B---->|<-C->|
  |                    |<-D>|
  |<----------E------------>|

  A = PW-C   B = A/NOP  C=(CP*PW)/100  D = (B-OW)/2
  E = C+(P-1)*B+D }

var
  A, B, C, D: Integer;
begin
  C := Trunc((CropPercent*ParentWidth)/100);
  A := ParentWidth - C;
  B := Trunc(A/NumberOfPlaces);
  D := Trunc((B-ObjectWidth)/2);
  Result := C+(Place-1)*B+D;
end;