delphi TadvGlowbutton Click

[DeddyH]

This is one of several ways (still quite dirty):

Delphi-Quellcode:

type
  TMAIN = class(TForm)
  private  
    FOtherFormVisible: Boolean;
    FVolFrm: TVolFrm;
    procedure SetOtherFormVisible(Value: Boolean);
    function GetVolFrm: TVolFrm;
    property OtherFormVisible: Boolean read FOtherFormVisible write SetOtherFormVisible;
    property VolFrm: TVolFrm read GetVolFrm;
    ...
  end;
  
...

procedure TMAIN.SetOtherFormVisible(Value: Boolean);
begin
  FOtherFormVisible := Value;
  if FOtherFormVisible then
    (* Using the property, not the private field due to lazy initialization *)
    VolFrm.ProceedShowCode
  else
    VolFrm.ProceedHideCode;
end;    

function TMAIN.GetVolFrm: TVolFrm;
begin
  if not Assigned(FVolFrm) then
    FVolFrm := TVolFrm.Create(nil);
  Result := FVolFrm;
end;

(* Click-Code left *)
procedure TMAIN.btnVolClick(Sender: TObject);
begin
  (* Accessing the property to call its Setter *)
  OtherFormVisible := not OtherFormVisible;
end;