用Delphi + vgscene最小化和还原制作一个应用程序

Question

如何最小化vgscene的透明度形式?我使用这个代码

Application.Minimize; 

和我激活窗体从windows任务栏，但是vgscene的每个组件都不能点击!

Answer 1

type
  tmain1 = class(TForm)
   private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

procedure tmain1.WMSysCommand(var Message: TWMSysCommand);
begin
  inherited;
    vgScene1.Transparency:=True ;   

表单最小化....

 vgScene1.Transparency:=False;
    Application.Minimize;