anchor.diff:    ControlStyle := ControlStyle + [csPaintBlackOpaqueOnGlass];
   end;
   
  +function TGoForm.GetAllowDropFiles: Boolean;
  +begin
  +  Result := (GetWindowLong(Handle, GWL_EXSTYLE) and WS_EX_ACCEPTFILES) <> 0;
  +end;
  +
   procedure TGoForm.InitializeNewForm;
   begin
     inherited InitializeNewForm;
  
positive.code: 
  procedure TGoForm.SetAllowDropFiles(const Value: Boolean);
  begin
    if FAllowDropFiles <> Value then
    begin
      FAllowDropFiles := Value;
      DragAcceptFiles(Handle, Value);
    end;
  end;
  
  procedure TGoForm.WMDropFiles(var Msg: TWMDropFiles);
  
negative.code: procedure TGoForm.CMStyleChanged(var Msg: TMessage);
  begin
    inherited;
    // ޸ʽɵ⣬ϷţʵʴڷѾˣ
    // á
    if FAllowDropFiles and not AllowDropFiles then
      AllowDropFiles := True;
    if Assigned(FOnStyleChanged) then
      FOnStyleChanged(Self);
  end;
  