where is the right place to read mainform.Width at start ?

[erich.wanker]

hello ..

i need the mainform.Width to adjuste a form at start (uniForm2.position= default)

 

procedure TMainForm.UniFormShow(Sender: TObject);
begin
   uniform2.left:=trunc((mainform.Width/2)-(uniForm2.Width/2 - 45));
   uniform2.ShowModal;
end;

 

  -->   read mainform.Width at this point brings the pixel-width of delphi-designtime ..

 

ThanX for suggestions

 

Erich

 

[Sherzod]

Hi Erich.

If I understand correctly, try:

UniForm1 ... ->

function window.beforeshow(sender, eOpts)
{
  //UniForm1.left := ...
  //this.setPosition(1000);
  this.setPosition(Math.round(MainForm.form.width / 2) - Math.round(this.width / 2) );
}

Best regards.

[erich.wanker]

Hi Delphi Developer,

thank you for your help :-) 

but it didn´t work - the UniForm.left value is zero at this time

 

i made a little "workarround" :

procedure TMainForm.UniFormShow(Sender: TObject);
begin
UniTimer1.Enabled:=true;
end;

procedure TMainForm.UniTimer1Timer(Sender: TObject);
begin
 uniform2.left:=trunc((mainform.Width/2)-(uniForm2.Width/2));
 uniform2.ShowModal;
end;

.. in this case i can read the right mainform.Width-value ... that works for me :-)

 

ThanX and nice greetings from Austria

 

Erich