FireMonkey and showing modal dialog center of the owner form?

Position is not implemented in FireMonkey by ShowModal. With the class helper below you can use: sdSettingsDialog. UpdateFormPosition before you call ShowModal: type TFormHelper = class helper for TForm procedure UpdateFormPosition; end; procedure TFormHelper.

UpdateFormPosition; var RefForm: TCommonCustomForm; begin RefForm := nil; case Position of // TFormPosition. PoScreenCenter: implemented in FMX. Forms (only one) TFormPosition.

PoOwnerFormCenter: if Assigned(Owner) and (Owner is TCommonCustomForm) then RefForm := Owner as TCommonCustomForm; TFormPosition. PoMainFormCenter: RefForm := Application. MainForm; end; if Assigned(RefForm) then begin SetBounds( System.

Round((RefForm. Width - Width) / 2) + RefForm. Left, System.

Round((RefForm. Height - Height) / 2) + RefForm. Top, Width, Height); end; end.

– David Heffernan Nov 19 at 17:00 Difficult question David, no the class helper is not essential, if you prefer: procedure UpdateFormPos(aForm: TForm) be my guest. – Arjen van der Spek Nov 19 at 17:20 3 @ArjenvanderSpek Thanks, it works great! Why I'm feeling that FireMonkey is not quite finished yet and it's like half baked muffin... – evilone Nov 19 at 20:41.

Position is not implemented in FireMonkey by ShowModal. With the class helper below you can use: sdSettingsDialog. UpdateFormPosition before you call ShowModal.

I cant really gove you an answer,but what I can give you is a way to a solution, that is you have to find the anglde that you relate to or peaks your interest. A good paper is one that people get drawn into because it reaches them ln some way.As for me WW11 to me, I think of the holocaust and the effect it had on the survivors, their families and those who stood by and did nothing until it was too late.