Zo daar zijn we weer jongens,
Het volgende (puntje cq probleempje);
Ik heb een 'Main' form dat altijd gemaximaliseerd via de onderstaande code open staat.
Code:
procedure TForm1.FormCreate(Sender: TObject);
Var
WorkArea_Vorig: Trect;
WorkArea_Huidig: Trect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea_Huidig, 0);
SetBounds(WorkArea_Huidig.Left, WorkArea_Huidig.Top, WorkArea_Huidig.Right -
WorkArea_Huidig.Left, WorkArea_Huidig.Bottom - WorkArea_Huidig.Top);
end;
Dit form is uiteraard van het type fsMdiForm, mijn huidige scherm resolutie is 1024x768 of 1280x1024, als ik dan een ander form ontwerp van het type fsMdiChild, stel dat het formaat van dit form HxB := 300x500 is, met in de Linker & Rechter boven en onderhoek een button of iets dergelijk herkenbaars ivm de hoeken.
Als ik dit form open in mijn huidige main form, en dan laat ik dit form (child) maximalizeren, dan zie ik dat dit form als het ware linksbovenin het main form wordt 'uitgelijnd' terwijl ik dit form juist gecentreert in het midden van het main form moet worden en tevens moet deze ook nog gemaximaliseert worden dit ivm de soort 'dock' uiterlijk (geen randen, blauwebalk, etc, etc,)
Is dit te realiseren, want als ik al tijdens design time al rekening moet gaan houden met het zorgen dat de objecten wel gecentreerd worden weergegeven in het main form dan ben ik voorlopig nog niet klaar.
Code:
Ps. dt is geen code hoor.... alleen maar property settings.
MainForm:
Bordericons = biNone
BorderStyle = bsSingle
Anchors = akTop, akLeft
FormStyle = fsMdiForm
Postition = poDefault
Align = aNone
WindowsState = wsNormal
Form2:
Bordericons = biNone
BorderStyle = bsSingle
Anchors = akTop, akLeft
FormStyle = fsMdiChild
Postition = poDefault
Align = aNone
WindowsState = wsNormal
Iemand Suggesties.
BvD.
R.R.
Bookmarks