Consider this.
I have a form and I place a component (derived from TComponent) on that form.
The component has a boolean property HideOnShow.
How do I make the component hide the main form on app startup?
Where and how do I implement this?
unit MyTest;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, LCLIntf, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, ComCtrls;
type
{ TMyTest}
TMyTest = class(TComponent)
private
fHideOnStart : Boolean;
function GetHideOnStart : Boolean;
procedure SetHideOnStart(aValue : Boolean);
protected
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
published
property HideOnStart : Boolean read GetHideOnStart write SetHideOnStart;
end;
procedure Register;
implementation
constructor TMyTest.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
end;
destructor TMyTest.Destroy;
begin
inherited;
end;
function TMyTest.GetHideOnStart : Boolean;
begin
Result := fHideOnStart;
end;
procedure TMyTest.SetHideOnStart(aValue : Boolean);
begin
if aValue <> fHideOnStart then
begin
fHideOnStart := aValue;
end;
end;
procedure Register;
begin
RegisterComponents('Misc',[TMyTest]);
end;
end.