使用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;