TFresnelForm.Hide

src/fresnellclcontrols.pas

@@ -217,6 +217,7 @@ type
     constructor CreateNew(AOwner: TComponent); virtual;
     destructor Destroy; override;
     procedure DomChanged; override;
+    procedure Hide;
     procedure Show; virtual;
     function ShowModal: TModalResult; virtual;
     property AllowDropFiles: Boolean read GetAllowDropFiles write SetAllowDropFiles default false;
@@ -339,6 +340,11 @@ begin
   LayoutQueued:=true;
 end;
 
+procedure TCustomFresnelForm.Hide;
+begin
+  Form.Hide;
+end;
+
 procedure TCustomFresnelForm.Show;
 begin
   Form.Show;