[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] Reference for unit 'Forms' (#lcl)

TCustomForm.SetRestoredBounds

Sets the bounds for the restored control.

Declaration

Source position: forms.pp line 737

public procedure TCustomForm.SetRestoredBounds(

  ALeft: Integer;

  ATop: Integer;

  AWidth: Integer;

  AHeight: Integer;

  const ADefaultPosition: Boolean = False

);

Arguments

ALeft

  

Value to restore to the Left property for the form.

ATop

  

Value to restore to the Top property for the form.

AWidth

  

Value to restore to the Width property for the form.

AHeight

  

Value to restore to the Height property for the form.

ADefaultPosition

  

True if the form is moved to the monitor and location in the Position property.

Description

Ensures that the parameter values are used in the form instance. No actions are performed in the method when ALeft, ATop, AWidth, and AHeight are already assigned to the corresponding properties in the form instance.

Temporarily sets WindowState to wsNormal, and calls SetBounds to apply the parameter values to the form instance. Calls MoveToDefaultPosition when ADefaultPosition is True. Restores WindowState to its original value, and updates the values for the RestoredLeft, RestoredRight, RestoredWidth, and RestoredHeight properties.

Called from the AfterConstruction method prior to signalling the OnCreate event handler and applying the automatic layout policy for the form instance.


Version 3.2 Generated 2024-02-25 Home